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This document was once a section of a larger one, the rest of which was discarded many 
years ago. I do not remember the detailed reason, though I think it was because the 
remainder was less interesting. The internal evidence -- particularly the dates in the 
table of contents -- make it apparent that the document is relative to the Mark 2.4 
release. This is supported by the label on the binder from which I removed it. 
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CHAPTER 1 


NEW FEATURES AND DOCUMENTATION CHANGES 


INTRODUCTION 


This chapter contains information concerning the current status of software 
documentation. Improvements, changes, and new features will be published in 
this chapter with each new software release. 


The organization of the descriptions are by function rather than by software 
item. Thus, particular information may be found in one place rather than 
scattered throughout various descriptions under ALGOL, COBOL, MCP, etc. 


Each description has been assigned a sequence number with the letter "D" as a 
prefix. The sequence numbers are monotonically increasing and are used to 
reference the notes in the index tables. 


The first column of the "Documents Affected" table contains the name of any 
document that is affected by a D-Note. The second column contains the sequence 
number of the note that should be used to modify the publication listed in the 
first column. The third column is the Marketing Number which may be used to 
order the document from the Technical Information Organization. The fourth 
column contains the date of the affected publication. 


The second table is a "KWIC" Subject Index. Each entry is a keyword which 
references the D-Note and function relative to the keyword. 
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INTRODUCTION 


IHE FULLOWING LIST INDICATES Lb NUTES THAT WERE PUBLISHED IN AN 
RARLIER 1SSuUt UF "NEW FEATURES ANU DOCUMENTATION CHANGES® AND HAVE 
SUBSEQUENTLY BEEN LNCURPOKATED IN A BURKUUGHS INFORMATION MANUALS 
THESE NOTES MAY bE CRUSSED UUT IN YUUR PERMANENT FILE AND ANY 
PALES UPON WHICH ALL Ut THF NOTES HAVE BEEN LELETED MAY BE 
tLIMINATLU, 
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00145 ALGOL © VECTOR MODE IN ALGOL & FORTRAN © 1280479 


VECTORMODE IN ALGOL 
dF O"VECTORMOGDE" IS SET WHEN COMPILING THE ALGOL COMPILER». ALGOL 
CAND DCALGOL) WILL PARSE AND EMIT VECTORMOQDE CUDE. 


THe veCTOR MODE SYNTAX IN ALGOL IS AS FOLLOWS? 


DO VECTORMOLE CVECTORIOs(CIDa) & CVECTURIDAICCID@ICVECTORIU,I)) 
FUR CUUNTVALUE) VECTUR COMPOUND STATEMENTS 


WHERE € J INDICATES AN OPTIONAL CLAUSE. 


EALH VECTORID SPECIFIES THE NAME OF THE VECTOR AND THE STARTING 
POINT IN THAT VECTORs AN ASTERISK (#) CAN BE USED TO REPLACE THE 
LAST SUBSCRIPT Th INUVICATE THE BEGINNING UF AN ARRAY ROW, ALSO> 
SUBSCRIPTS CAN BE EXPRESSTUNS. VECTORID"S CANNOT BE SEGMENTED 
ARRAYS. IN QRVER TU USE AN ARRAY THAT IS CUNGER TRAN 1,023 WORDS 
AN VECTORMONEs IT MUST BE DECLARED LUNG. THE ITEMS IN THE BRACKETS 
MAY BE EMPTYs THE CONSTRUCT TU © VECTURIUe ALLUWS THE ABILITY TO 
USt THE SAME AKRAY WITH DIFFERENT STARIING PUINTS. COUNTVALUE IS 
MANDATORY. IT INDICATES THE MAXIMUM NUMBER OF TIMES THE VECTOR 
COMPOUND STATEMENT IS EXECUTED. IT CAN BE ANY EXPRESSIONS 


EXPRESSTUNS FUR SUBSCRIPTS ANN COUNTVALUE ARE EVALUATED ONLY ONCE 
FRUM LEFT TO RIGHT. PRIOK TO ENTERING VECTUR MUDE. 


EXPAMPLES? 


DO VECTORMODE CARRIDIC#), ARRIDZLA, «17> 
ARRID3 (K=25 115 FUR 100) BEGIN ==" ENL3 


: PAGE 2 
DU145 ALGOL © VECTOR MODE IN ALGOL &@ FORTRAN © 12°04972 


DO VECTORMOVE CARRIDIC#]» AASARRIDICI)» FUR X + A BEGIN == ENDS 
DO VECTGRMOLE CARKIDIC ed» FUR N) BEGIN =? ENUS 


DU VECTURMOVE CARRIDICK*1), RAC#), FO N*1) BEGIN @@= ENDS 


VECTOR COMPOUND STATEMENT 

THe COMPUUND STATEMENT THAT FOLLOWS THE DU VECTURMOUE MAY TAKE THE 
GENERAL FORM QF AN ALGUL CUMPNUND STATEMENT» HOWEVER» THE SYNTAX 
[Hat IS PERMITTED INSIDE SUCH COMPOUND STATEMENTS IS RESTRICTED. 


(HE UNLY ARRAYS THAT MAY BE REFERENCED ARE THE ONE TU THREE VECTORS 
ANUICATED IN THE UDO STATEMENT WITHIN THE VEC TUR COMPOUND 
STATEMENT» -ACH VECTORID UR ASSUCTATED IL IS REFERRED TO WITHOUT 
SUBSCRIPTS, THE MEANING IS ALWAYS 10 FETCH FROM OR STURE INTO THE 
CURRENT ADURESS CONTAINED IN THF IC MEMORY FUR THAT VECTOR. 


ANY ARITHMETIC UR LOGICAL VARIABLE IN Tht STACK CAN BE REFERENCEDS 
HUNEVER,», NO REFERENCE MAY BE MADE THAT MIGHT CAUSE AN INTERRUPT. 
SHAS MEANS, IN PARTICULAR» THAT CALL BY NAME PARAMETERS» FILES, 
EVENTS» TASKS, AND POINTERS MAY NUT BE REFERENCED. 


(He FOLLOWING ARE The UNLY STATEMENTS PEKMITTED InN A VECTOR 
CUMPOQUND STAFEMENTS 


le BEGIN AND END. 
2e If 
Je UNCONUITIONAL GO TUe 


THE GO TO STATEMENT TS INTEREPRETED IN THE FOLLOWING 
MANNER. IF THE LABEL IS LOCAL TU THE VECTUR MODE BLUCK, 
ONLY A BRANCH FORWARD 15 ALLUWEDs 1F 0 6oTHE LABFL IS 
QUTSTUE JHE VECTUR MUDE KLOCK, VECTOR MODE 15 EXITED AND 
CUDE IS EXECUTED TU BRANCH TO THAT LABEL. AS ALL LABELS 
INSINE THE VECTOR COMPUUND STATEMENT ARE LOCAL» NO 
BRANCHING [9 PERMITTED TNTUO THE ANGE UF THAT STATEMENT. 


4e ARITHMETIC ASSIGNMENT STATEMENTS. 


Se EXIT STATEMENT. THIS TS A NEW STATEMENTs IF EXECUTED,» 
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It MEANS TO EXIT VECTOR MODE AND CONTINUE EXECUTION WITH 
THE FIRST EXECUTABLE STATEMENT tULLUWING THE VECTOR 
COMPUUND STATEMENT. 


6+ INCREMENT STATEMENTs THIS IS A NEW STATEMENTs IT TAKES 
THE FORMS 


INCREMENT VECTOHID bs» VECTORIDse CVECTURID ese 3 
WHERE THE BRACKETS INDICATE OPTIONAL ITEMS. 


THE INCREMENT STATEMENT INCREMENTS THE ADURESS OF THE 
VECTORS REFERENCED BY ONE (1) FUR SINGLE PRECISION ARRAYS 
ANO TwO (2) FOR DOUBLE PRECISION ARRAYS. 


INCREMENT As BB 
WOULD INCREMENT THE AUVODRFSS FOR VECTUKS A AND Bo 
INCREMENT Ap Ad 


WOULD INCREMENT THE ADDRESS FOR THE VECTOR A TWICE. IT 
IS MURE EFFICIENT TU INCREMENT A VECTUR ADDRESS AFTER A 
REFERENCE TU ITs» RATHFR THAN’ BEFURE. THERE ARE NO 
[IMPLIED INCREMENTS IN A VECTOR MUDE STATEMENT.» THUS» IF 
NO SUCH STATEMENTS APPEAR» THE VECTOR AUDRESSES ARE NEVER 
INCREMENTED « 


7+ LABEL DECLARATIUN STATEMFNTSs 


ARITHMETIC FXPRESSIONS IN VECTOR MODE 
ARLTHMETIC EXPRESSIONS IN VECTUR MODE ARE STHICTLY LIMITED IN FORM. 
THEY MUST MEET THE FOLLUWING REQUIREMENTS. 


te PROCFOUKE CALLS OF ANY SORT AKE PROHIBITED. THIS MEANS 
THAT ANY CALL ON AN INTRINSICS FUNCTION THAT IS NOT 
INLINE |= EXPRESS UR IMPLIED 2 IS PROHIBITED. FOR 
EXAMPLE» LN MAY NOT BE CALLELUs SINCE EXPONENTIATION 
GENERALLY CALLS AN INIRINSIC» NON*CONSTANT EXPONENTIATION 
[S PRUHIBITED.s 
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@e REFERENCE TU ANY PUINTERS OR CHARACTER ARRAYS 15 
PROHIBITED THRUUGHOUT VECTOR MUDE AND ITS INVUCATION. 


de REFERENCE TU ANY FILE. CALL BY NAME PARAMETER AT ANY 
LEVEL» ARRAY QR SUBSCRIPTED VAKLAULE, CUTNER THAN THE 
VECTONIDS THEMSELVES) 1S PROHIBITED. SIMPLE VARIABLES 
THAT ARE AT ANY LEVEL OR ARE CALLED BY VALUE PARAMETERS 
MAY Bk REFERENCED. 


EXTENDED VECIOR MODE IN ALGUL 
THis EXTENDED SYNTAX 1S ALLOWED IF "VECTUKMUVE" AND "EXTVECTOR® ARE 
SET WHEN COMPILING THE ALGUL COMPILER. 


THLS OPTIUN "EXTVECTOR™ SPECIFICALLY GIVES ANY ALGUL PROGRAMMER THE 
CaraACITyY TU ACCESS DATA UUTSIDE HIS PROGRAM OR TU CRASH THE SYSTEM. 
AF A SITE MANAGER ALLOWS "EXTVECTOR® TO BE SET IN ANY COMPILER IN A 
SiTE» ALL GUARANTEES UF SYSTEM INTEGRITY» FILE OR DATA SECURITY» 
ANU SYSTEM STABILITY ARE SPECIFICALLY ANU IRHEVOCABLY VOIDED. 


ALUNG wWITH VECTOHMUDE TWO ANDITIUNAL FACILITIES ARE ALLUWED IN 
EXTVECTOR. 


Le PRECFUING THE FIRST VFCTURIO CAN BE FROM UNE TO THREE 
INCHEMENTS» ENCLUSED IN BRACKETS. FUR EXAMPLES 


OO VECTURMOVDE (Les I+d/Ke J MOD Kio ALw), Bled, Cie}, FOR N 
BEGIN ees ENDS 


THESE INCREMENTS CAN FACH BE AN EXPRESSION AND ARE 
EVALUATED ONLY OUNCE FOR EACH ENTRYs THEY INCICATE THE 
AMOUNT TO BE INCREMENTED ON THE RESPECTIVE VECTORID FOR 
EACH EXECUTION OF AN INCREMENT STATEMENT. ANY INCREMENTS 
OMITTED ARE ASSUMED TO BE UNE (61) FOR SINGLE PRECISION 
VECTORIOS ANU TWO (2) FOR DOUBLE FRECISION VECTORIDS. IF 
A VECTURID IS DOUBLE PRECISION AND AN INCREMENT IS 
PROVIDED IT WILL BE THE PRUGRAMMEKS RESPONSIBILITY TO 
INSURE THAT IT IS A MULTIPLE OF TWO. (COTHERWISE THE 
LOWER HALF QF OGUNE PART AND THt HIGHER HALF OF ANOTHER 
PART WILL BE THE OPERANDS THA] ARE LUADED OR STORED INTO.) 


bu145 
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READING OR SETTING THF INCREMENTS DYNAMICALLY IS ALSO 
ALLUWEDs FUR EXAMPLES 


DO VECTORMODE (42> ZeJd/Ke T+#POK]» AL)» BL¥)»s Chel» FUR N) 
BEGIN 

Ate Bw C3 

INCREMENT Ap Bo CB 

IF As INCREMENT & 2 THEN Ao INCREMENT! = 68 

Atz B+ C + AB 

Bs INCREMENT 82 [ + J3 

Kis Ce INCREMENTS 

INCREMENT Ap Bo C3 
END3 


VECTORMODE IN FORTRAN 


VECTOR 


lo 


MODE IS ALLOWED IN FORTRAN ONLY IF 


THE COMPILEK HAS SHEEFN COMPILEL WITH THE USER OPTION 
VECTORMUDEISALLOWED SET. 


THE USER RAS SET THE UPTIUN VECTORMODE FORK THE PORTION OF 
THE PRUGRAM HE WANTS THE COMFILEK TO TRY TO GENFRATE 


VECTOR MUDE CODE IN. 


THE USER HAS ENCODED A LOOP IN FORTRAN THAT HAS THE 
FOLLOWING BEHAVIURAL CHARACTERISTICS! 


As IT IS A OU LOOP OR A LUOP CONSTRUCTEU WITH IF 
STATEMENTS THAT FUNCTTUNS EQUIVALENTLY TO A LO LOOP. 

Be THE LOOP IS ENTERED ONLY FROM THE “NUDER 
IMMEDIATELY PRECEERING THE LOOP. THAT IS» The LouoP 
IS ALWAYS FALLEN INTU» NO STATEMENT BRANCHES INTU 
THE kUUP AND NU STATEMENT BRANCHES TO THE FIRST 
STATEMENT OF THE LOOR EXCEPT THE AKTUAL LUUPING AND 
TESTING CUDE. 


C. THE INCREMENTED EXPRESSION 1S A CUNSTANT LESS THAN 
OR EQUAL TU THREE. 


5 
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THE FINAL ANU INITIAL VALUES ARE INTEGERS AND ARE 
CONSTANT WITH RESPECT TO THE LUUP. THAT IS, If THe 
TNITIAL ANDO FINAL VALUES ARE NOT CONSTANTS» THEN 
THEY MUST NUT BE ALTERED WITHIN THR LOOP. 


THE CONTRUL VARIABLE MUST NOT BE IN COMMONS 


NO CALL» 10 STATEMENTS» PAUSEs ZIP» CLOSE» OR OTHER 
FILE MANDLING STATEMENTS ARE ALLOWED. 


NO FUNCTION REFERENCES ARE ALLUWEDs 


INTRINSIC CALLS INCLUNING #* AKE NUT ALLOWED UNLESS 
THE RESULT UF THE CALL IS INVARIANT WITH RESPECT Tu 
THE LOUP,. 


IF ARRAYS OR COMMUN ELEMENTS ARE ALTERED WITHIN THE 
LOUP» QR ARRAYS ARF REFERENCED WITHIN THE LOOP 
USING A SUBSCRIPT THAT CHANGES WITH EACH ITERATION 
WITHIN THE LUOPs» THEN THERE MAY NUT BE MORE THAN 
THREE SUCH USAGES. THAT DUES NOT MEAN A LIMIT OF 
THREE ARRAYS? 


GO 10 T 8 1» N 
10 ACI) © ACE + 1) + A CI ™ 1) + B CN) 


THe ABUVE LOOP WUULI) GENERATE VECTOR MUDE CODE IF 
THE GTHER CUNDITIONS ARE MET,» BECAUSE THERE ARE 
ONLY THREE ARRAYS AEING UStD WITH VAKYILNG 

SUBSCRIPTS, If B (CN) HAD BEEN REPLACED BY B C(I) OR 


~A CT + 2) THEN NU VFCTUR CUDE WUULL BE GENERATED. 


If THE STATEMENT HAD HEEN 
10 BON) = ACI) + ACI #1) + A CT # 3) 


THEN NO VECTUR MOUF WUULD Be GENERATED» BECAUSE 
WHILE ONLY THREE ARRAY SUBSURIFIS WERE VARYING A 
FOURTH ARWKAY WAS BEING ALTERED IN VALUE. 


CALL AN ARRAY A COMMON ELEMENT BEING ALTERED OR 
BEING USED WITH VARYING SUBSCRIPTS A "VECTUR" ARRAY. 


6 
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A VECIGR ARRAY CANNUT BE REFERENCED IN A PURELY 
CONDITIONAL MANNER. UTHERWISE NO VECTCR CODF IS 
GENERATED. 


00 10 I = 1, 10000 
10 TF CILT«50) ACT) &@ ACI) + 1 


THE ABUVE EXAMPLE WOULD NOT GENERATE VECTOR CODE. 


DU 10 I = 1» 10000 
ACI) = ACI) + 1 
10 IF CI.LT¢5O) ACE) & ACI) + 1 


THE ABUVE EXAMPLE WOULD IF THE OTHER CUNDITIUNS ARE 
MET. 


Ke TRE PARTIAL OFRIVATTVE UF ALL OF THE SUBSCRIPT 
EXPRESSIONS WITH RESPECT TO ThE CUNTROL VARIABLE 
MUST BE AN INTEGER WHICH IS CUNSTANT WITH KESPECT 
TO THE LOOP. 


THIS ESSENTIALLY MEANS THAT IF THE SUBSCRIFT IS Tou 
COMPLICATED VECTURMODF CUDE WILL NUT BE EMITTED, 


OU 10 K # 1. N 
10 ACToeJ) & BCT aK)® COKed) + ACT od) 


THe ABOVE WILL GIVF YUU VECTOR MODE, IF OTHER 
CONDITIONS ARE MET. 


D0 10 K © ls» N 
10 ACKaeKkK) = BC(K + K) 


THE ABOVE WILL NOT GIVE VECTOR MODE BECAUSE OF THE 
SUBSCRIPT OF Aw JHE SUBSCRIPT UF B IS ACCEPTABLE. 


Le VECTUR MUDE WILL NOT BE USED FOR NUN@LUNG ARRAYS. 


Me. VECTOR MODE WILL NOT BE USED FOR FORMAL ARRAYS 
UNLESS LONG IS SET. 


Ne ONLY INNERMUST LOOPS WILL GET VECTUR MODE. 
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voLa?/ ALGOL = FURMAL FRUCEDURES «= 
THe PARAMETER CHECKING UUNE FOR FURMAL PROCEDURES HAS BEEN 
STANDARDIZED IN ORDER THAT ALGUL AND FORTRAN PROGRAM UNITS THAT 
PASS UK RECEIVE PROCEDURE FARAMFTEKS MAY BE BOUND TUVETHERs 


WHEN USING PROCEDURE PARAMETERS STRICTLY WITHIN ALGUL» THE OVERHEAD 
uf THE RUN TIME PARAMETER CHECKING COVE CAN BE AVOIDED BY 
SPECIFICALLY NESCKIBING THE FARAMETERS UF A FURMAL PROCEDURE. 


CALLS MAUVE UN SPECIFIED FORMAL PROCELUKES WILL HAVE ALL PARAMETER 
CHECKING QONE AT CUMFILE TIME. THERE WILE bE NO ANVITIONAL CODE 
EXECUTED. UNLY NUN®FUORMAL AND SPECIFIED FURMAL PRUCEDURES HAVING 
PARAMETER NMESCRIPTIUNS MATCHING THOSE UF THE SPECIFIED FORMAL 
PRUCEUUKE MAY HE PASSED AS ACTUAL FARAMETERSs AN UNSPECIFIED 
FORMAL PROCEDURE CANNUT BE PASSED AS AN ACTUAL PARAMETER TO A 
SPECIFIED FURMAL PRUCEDUKF. 


[He SYNTAX FUR PROCEDURE AND FUNCTION DECLARATIONS ON PAGE 10°11 OF 
}HE JUNE 1972 EXTENDED ALGUL LANGUAGE INFURMATIUN MANUAL SHOULD BE 
REVISED BY THESE DEFINITIONS 


be CHANGE THE DEFINITLUN OF <SPECIFICATIUN> TO% 


<SPECIFICATION> 832 <SPECTFIER><IDENTIFIER LIST>/ 
<ARRAY SPECIFICATIUN>/ 
<PROCEUURE SPECIFICATION? 
<PRUCEDURE SPECIFICATION> 3 s2PRUCEUURE <FORMAL PROCEDURE LIST>/ 
<TYPE> PROCEDURE <FURMAL PRUCEDURKE LIST> 
<FORMAL PROCEQDURE LIST>%s= <FURMAL FROCEDURE SPECIFIER>/ 
<FURMAL PRUCEDURE LIST>»<FURMAL PRUCEDURE SPECIFIER> 
<FORMAL PRUCEOURE SPFCIFIER>St® <IDENTIFIERD/ 
<IUENTIFIER> <SPECIFIFL PAKAME IER PAKT>3 FURMAL 
<SPECTF LEU PARAMETER PAKT>3te ( )/ 
CeFURMAL PARAMETER LIST>)S <VALUE PARTA><SPECIFICATION PART> 


de KHEMUVE "PRUCEDUKE™ AND S<TYFE> PrucGeUURKE™ FROM THE LIST ft 
WeSPECIFIERS>™"S 


U0147 ALGUL * FORMAL PROCEDURES * 01°15"°73 pea 


EXAMPLE? 


PROCEDURE P(01,02)3 
PROCEDURE Q1C)SFORMAL. 
W2CXISVALUE XB REAL X3 FURMALS 


THE EMPTY PARENTHESIS MUST BF USED TO INDICATE NO PARAMETERS. 


00158 ALGOL - PROGRAM AND PATCH Ib = 10°16%72 

ALGOL AND ESFUL HAVE BEEN MCUIFIED TU ALLOW $ VERSION VV.CCC. WHERE 
VV REPRESENTS THE VERSION» THE FIRST V REPRESENTS THE MARK NUMBERS 
THE SECOND V_ REPRESENTS THE LEVEL NUMBER, ANY THE CLC REPRESENTS 
THE CYCLE. 


rOKR A USER TO GAIN ACCESS TO THESE NUMBERS» TwO ADDITIONAL 
COMPILETIME UPTIONS HAVE BEEN IMPLEMENTEU IN ALGOL AND ESPOL? 


Le COMPILETIME (20) YIELUS THE VERSIUN AS AN INTEGER, 


Ae COMPILETIME (20) DIV 10 YIELDS THE MARK NUMBER. 
Bs. COMPILETIME (20) MUD 10 YIELDS THE LEVEL NUMBER. 


2e COMPILETIME (21) YIELUS THE CYCLE AS AN INTEGER. 
WHEN COMPILING WITh SYSTEM/PATCH WITH THE MARK GRTIUN SET.» THENS 


le IF ON THE $# CARD THE FIRST STRING AFTER THE NOISE wORD 
IS A STRING UF THREE OR FEWER DIGITS» THEN 


Ae THE ALGOL CUMPILER WILLE REPLACE THE THREE DIGIT 
PATCH NUMBER WITH THE STRING OF 10 CHARACTERS AS 
FOLLUWS$ VERSTON (TwO CHARACTERS)» PERTUD>s CYCLE 
CTRREE CHARACTERS), PEKIUDs PATCH (THREE 
CHARACTERS)3 Istoso VVeCCC PPP. 


Be THE ESPOL CUMPILER WILL REPLACE THE STRING THREE 
VIGIT PATCH NUMBER WITH THE STRING Gt EIGHT 
CHARACTERS AS FOLLUWSt VERSION (C2 CHAKALTERS)>» 
CYCLE (€3 CHARACTERS)» PATCH (3 CHARACTERS)» WHEN 
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PRINTED UN A LISTING, THE ESPUL COMPILER WILL 
INSERT PERIODS BETWEEN THE VERSIUN AND CYCLE. ANU 


HETWEFN THE CYCLE ANU PATCH NUMBER. 


2e IF ON THE $# CARD THE FIRST STRING AFTER Tht NOISE WORD 
1S A&A STRING OTHER THAN THREE (OR FEWER) DIGITS» THEN THE 
ELGHT@CHARACTER STRING WILL BE USED. 


WHEN COMPILING wWilH “WEW" SET. ITF A & VERSION CARD APPEARS IN THE 
SYMHULIC, THEN LF THE PATCH DECK CUNTAINS A & VERSION CARD» THE NEW 
SYMBULIC WILL be UPOATED TO THE VERSION ANU CYCLt UN THF LAST & 
VERSIUN CARD IN THE FATCH DECK Lf THE SEQUENCE NUMBER IS LESS THAN 
THe UNE UN THE SYMBULIC. 


UUlads ALGOL © POINTER FXPRESSIONS © ll*ler72 


SYNTAX FUR <POINIER DESIGNATUR> IS EXPANUED TU FERMIT USING ANOTHER 
POINTER TO DESIGNATE THt SIZE UF A NEWLY INITIALIZED PUINTER. 


SYNTAX! 
<PUINTER DESITONATOR> 2 2=POINTFR CK<POINTER FARKAMETERS>) 


<PUINTER PARAMETERS> 8 232<ARRAY PARI>/<ARKAY PARTO >» 
<CHARACTER SIZE>/<ARRAY PART> e <PUINTER PRIMARY? 


EXAMPLE 3 


PUINTER Ps U3 ARKAY A (CUtSJS KEAL RB 
PS=POINTER (CAs O)3 PPtSPUINTER CAn CASE RK UF (Os FI) 


VOE11 ALGUL “@ DUMPINFO AND LONADINFU IN ALOOL © 01°22°73 


PHe ALGUL URLLAR CARL URFTIONS DUMPINFO AND LUAUINFO HAVE BEEN 
MUDIFIEC TO FALILITATE THeETR USk WITH INTERMEDIATE LEVEL GLUBAL 
BINUING. THESt CHANGES ARE? 


de THE UUMPINFU AWL LUADINFU UPTIUNS MAY BE FULLOWFD BY 


bu2ii ALGUL ™ DUMPINFO AND LUADINFO IN ALGUL © vie22—7g Ace a 


EITHER AN INTERNAL FILE NAME UR AN EXTERNAL FILE NAME 
TERMINATED WITH A’ PERTUL AND ENCLOSED IN QUOTES. THIS 
FILE NAME INFOKMATIUN IS IN A’ FURMAT SIMILAR TO THE 
INCLUDE UOLLAR UPTIUN. THIS PERMITS SELECTIVE INFO 
DUMPING AT SEVERAL FOLNTS AND SELECTIVE INFG LOADING MORE 
TRAN UNCE THROUGHUUT A COMPILATION.’ 


20 DUMPINFU AND LUADINFO MUST NOW BE THE LAST OPTION 
APPEARING ON A DULLAR CARD. 


3e WHEN A NEW LOAUINFU TS DONE ALL ULD INFU STRUCTURE IN 
ALGOL IS REMOVED. THUS. COMPILING DIFFERENT PORTIONS OF 
THE SAME PROGRAM» EVEN IF THEY UPERATE IN DIFFERENT 
ENVIRUNMENTS» MAY NOW BE LONE IN THE SAME COMPILATION. 


4s LOADINFO CHANGES ALL VARIABLES IN INFO TO BE GLOBALS AND 
ALL PROCEDURES ALREADY CUMPILEL TU BE FORWARD. THIS 
MEANS THAT AN INFO FILE CREATED BY A DUMPINFO LONE 
IMMEDIATELY BEFURE A PRUCEDURE IN A NORMAL COMPILATION 
WILL BE SUITABLE FUR FUTURE USE AS GLOBALS It UNE WISHES 
TO SEPARATELY CUMPILE THAT PRUCEDURE. 


IN GENERAL, THE EFFECT UF THESE CHANGES 18 TU CONSIDERABLY INCREASE 
THE NUMBER OF PLACES WHERF OUMPINFU AND LUADINFU MAY APPEAR IN 
URUER TU PRODUCE AND USE AN INFO FILE SUITABLE FOR SEPARATE 
COMPILATION. CAUTION IS GENFRALLY kEQUIKED UNLY WHEN VARIABLES 
wITH THE SAME NAME ARE DECLARED AT DIFFERENT LEVELSS A SEPARATE 
COMPILATION WILL ONLY BE ABLE TO ACCESS THE LAST SUCH VARTABLE SEEN 
BEFORE THE LUADINFO UCCURKED. 


v0218 ALGOL «= CASE STATEMENT SYNTAX c 019829973 
THE BNF IN THE ALGOL COMPILER IS IN ERROR. IT SHOULD READ AS 
FOLLOWS ON PAGE 9°58 


<CASE BODY>!t= BEGIN<CASE COMPOUND STATEMENT>END/ 
BEGIN<CASE COMPOUND STATEMENT>3END/ 
<CASE COMPUUND STATEMENT> 822 <STATEMENT>/ 


PAGE 12 
00214 ALGOL * CASE STATEMENT SYNTAX @ O1829973 


<CASE COMPOUND STATEMENT>3<STATEMENT> 


ry 


bO¢219 ALGOL © TASKVALUF °° 01215873 
tHe TASK ATTRIBUTE “TASK VALUE HAS BEEN CHANGED # RUM INTEGER TO 
KEAL TYPE .s 


VOE2U ALGOL © INSTALLATION INTRINSICS & verose73 

THe INSTALLATION DULLAR CARD UPTION HAS BEEN MODIFIED TO PERMIT 
GREATER SELECTIVITY IN CHUUSING INSTALLATIUN INTRINSICS. THE NEW 
PFURMAT OF ThiS UFTIUN 193 


<INSTALLATIUN DOLLAR UPTIUND> 382 INSTALLATIUN <NUMBER®@LIST> 
<NUMBER@LIST> 2832 <NUMBERK@ELEMENT>/<NUMBE R@ELE MENT? <NUMBER@LISI>/ 
<NUMBER@FLEMNENT >» <NUMBER@LIST>/<EMPTY> 

<NUMBER@®FLEMENT> 23= <INSTALL#NOL>/<INSTALL@NOL>*<INSTALL @NO2> 


LNSTALL#®NO1 AND IWSTALL®NUZ ARE UNSIGNED INTEGERS BETWEFN ONE AND 
20475 INCLUSIVE. NUMBER®ELEMENTS MUST KE IN ASCENDING SEQUENCE, 
WITH NU NUMBER KEFEATED. 


EXAMPLES OF CORRECT SETTINGS ARF8 


SINSTALLALIUN 1 2 3 4515022 

SINSTALLATIUN 10083595 400» 4557457 460°463 
BANSTALLATIUN 100°2047 

SINSTALLATIUN 


THe INSTALLATIUN CARU WITH NU NUMBERK®LIST IS EQUIVALENT TO THE 
NUMHER®LIST 100*204/7. 


PRIUR TU PROCESSING THE FIRST ALGUL STATEMENT IN ANY COMPILATION,» 
THe COMPILER EXAMINES THE INTRINSICS UPIJONe ONLY THE NUMBER@LIST 
(UK LACK THEREUE) FULLOWING THE LAST SETTING UF THE INSTALLATION 
UPTIUN ENCOUNTERED PRIUK TU THIS TIME IS CUNSIDERED. 


ANOTALLATICN INTRINSICS LUAUFD ARE THOSE THAT WERE LITHER INCLUDED 


VO220  ALGOL = INSTALLATIUN INTRINSICS + Ozeus<73 PASE 13 


@enane eaeene e @SeG@eae Gn nutnaae See eeacunus a @Gaeaeeaeaea 


IN A RANGE OR EXPLICITLY STATED ON THE LAST INSTALLATION SETTING 
ENCOUNTERED. 


A SYNTAX ERROR WILL BE EMITTED It THE NUMBER*LIST IS NOT IN 
ASCENUING SEQUENCE» IF ANY OF THE RANGES SPECIFIED OVERLAP. OR It 
THE SECOND NUMBER IN A RANGE 1S NOT LARGER THAN THE FIRST NUMBERS 
NUMBERS LARGER THAN 2047 WILL BF TREATED AS IF THEY WERE 2047. 


ANY SPECIFICATIUN OF THE INSTALLATLUN UPTION THAT IS ENCOUNTERED 
AFTER THE FIRST STATEMENT OF THE ALGUL CUMPILATION CONTINUES TU BE 
IGNOKED, 


bO252 ALGOL © "ON" STATEMENT SYNTAX 


vioeecee 


THIS CHANGE EXPANUS THE CAPABILITIES GF THE <UN STATEMFNT> FOR 
aLuQlLs» DCALGOL» AND ESPUL. 


ew eure: 
<ON STATEMENT> 8&8 <ENABLING UN STATEMENT>/<UAdSABLING ON STATEMENT> 
SOISABLING ON STATEMENT> 332 UN<FAULT LIST> 
SENABLING ON STATEMENTS 3 UNKFAULT LIST> <FAULT INFORMATION FART» 
<FAULT ACTION>/ON<E AULT LIST 
<FAULT INFORMATION PART>S<FAULT ACTION> 
<FAULT LIST>&32 <FAULT NAMED>/<FAULT LIST>OR<FAULT NAME> 
<FAULT NAME>3s2® ZERUDIVIVE/EXPONENTOVERFLOW/EXPUNENTUNDERFLOW/ 
INVALIDINDEX/INTEGERUVERFLOW/INACTIVE QUEUES 
MEMURYPROTECT/INVALIDOP/LOOP/MEMURYPARITY/ 
SCANPARITY/INVAL IDADDRESS/STACKOVERFLOW/ 
STRINGPRUTECT/PROGRAMMEDUPERKATOR/BOTITOMOFSTACKS 
SEQUENCE /INVALINPROGRAMWURL/OTACKUNDERE LOWS 
ANYFAULT 
<FAULT INFORMATION PART>39@ <EMPTY>/E<FAULT STACK HISTURY>J/ 
C<FAULT STACK HISTURY>S<PAULT NUMBER? J/ 
(3<FAULT NUMbBER>]) 
<FAULT STACK HISTORY>382 <ARRAY RKOW>/<POINTER EXPRESSTUND 
<FAULT NUMBFR>st= <VARIABLE>D 
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<FAULT ACTION> 282 <STATEMENT> 


NOTES LINACTIVEQUEUE [IS VALID ONLY IN DCALGOLs. BOTTOMDFSTACK, 
SEWUENCEs &NU STACKUNDERFLUW ARE VALID ONLY IN ESPULs 
ExeHE UES) 
te UN ZERUOIVIDE OK LNVALIDINDEX CtALJ])> 
BEGIN 
JtzJ # 15 CLEANUFS GU TO Las 
EWU 
2e UN ANYFAULTS 
3e UN MEMORYPROTECT UR LOUP t Qt 23 
Gs ON ZERUDIVIDE UR INTEGEROVERFLOWS 
Se UN ANYFAULT CPUINTK * 2 8 Z)» HANDLFALIS(Z)3 
6e UN EXPUNENTUVERFLUW CAL®)1, RECOVERCADS 
7s ON AWYFAULIT (C873 
BEGIN 
IF J= 6 THEN GU L23 
CASE J UF 
BEGIN 
: 
; 
END 
END} 


ee este tee: 

}He NEW <FAULT LIST> REPLACES THE <FAULT NAME> IN THE ULD <ON 
STATEMENT>, AND ENABLES THE USER TU ARM SEVERAL FAULIS WITH RESPECT 
tu THE SAME <FAULT ACTIUN> COFE EXAMFLES CNE AND THREE ABOVE)» OR 
10 UISARM UNE OR MORE FAULTS AT THE SAME TIME (SEE €XAMPLE FUUR 
ABuve de NOTE THAT THE OCCURRENCE OF ANY ONE OF THE FAULTS IN THE 
<FAULT LIST {> SuFFICIENT TQ) CAUSE TRANSFER UF CONTROL TO THE 
<FAULT ACTION>. 


THe NUN®<EMPITY> <FAULT INFURMATIUN PART> PROVIDES THt USER WITH THE 
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STACK HISTORY AT THE TIME OF THE GCCURRENCE OF THE FAULT» AND/OR 
THE NUMBER CORRESPONDING TU THE FAULT KIND CUSEFUL ONLY WHEN MORE 
THAN ONE FAULT IS ARMED WITH RESPECT TU THE SAME <FAULT ACTION>). 
THe FAULT NUMBER. WHEN INDICATED, WILL BE Stef TO ONE OF THE 
FOLLUWING VALUES UPUN UCCURRANCE UF THE CURRESPONDING FAULT? 


1 ZEROUVIVILE 

2 EXPONENTUVERFLOW 

3 EXPONENTUNDERFLOW 

4 INVALTIVINDEX 

5 INTEGEROVERFLUNW 

6 INACTIVEQUEUE COCALGOL (NLY) 
7 MEMORYPROTECT 

8 INVALIDOP 

9 LUOP 
10 MEMORYPARKITY 

41 SCANPARITY 

12 INVALTDAUDRESS 

13 STACKUVERFLUW 

44 STRINGPRUTECT 

15 PROGRAMMEDOPERATUR 

16 BOTTUMUF STACK CESPUL UNLY) 
17 SEQUENCE CESPOL UNLY) 

la INVALIDPROGRAMWURD 

19 STACKUNDERFLOW (CESPOL UNLY) 


THe FORMAT OF THE STACKHISTORY TS THE STANUDAKD FURKMAT? 


SSSTAAAALSY es #SSSEAAAALY phe ee re BSSSEAAAALYS 
UR 
SSSIAAAALYACDODDUDDDL) ote ves #SSSIAAAAS YH (DUDUDDOUD) > 


WHEHE SSS 1S THE SEGMENT NUMBER», AAAA IS THE ADURESS,» Y IS THE 
SYLLABLE,» # IS A&A BLANK SPACE, DDDDLDLVD IS THE LINE NUMBER CONLY 
PRESENT LF LINEINFO WAS SET DURING PRUBRAM COMPILATION) + THE 
PERIUD (€.) ALWAYS TERMINATES THE LAST ENTRYs 


THUSs IN EXAMPLE FIVE ABOVE» THE STACKHISTURY WOULD BEGIN AT POINTR 
* 2 AND CONTINUE UNTIL EITHER THE AREA OR THE STACKHISTURY 
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INFORMATION wAS EXHAUSTED. 


NUTE TRAT THE <FAULT STACKHISTURY> AND THE <FAULT NUMBER> ARE 
FIXED» WITH RESPECT TO AUDRESS» WHEN THE <UN STATEMENT> IS EXECUTED 
CleEe WHEN THE FAULT LS ARMED)» NOT WHEN THE FAULT OCCURS. THUS,» 
IN THE <ON STATEMENT> 


ON ZERODIVIDE CACT»*)thlJ)} & Gtebtd) + @ 


THE <ARRAY RUW> ALI,*) %IS NETERMINED BY THE VALUE OF IT AT THE 
EXECUTION OF THE <UN STATEMENT>» ANU NUT WHEN ANY ZERUDIVIDE 
ACTUALLY UCCURSS SIMILARLY FUR THE <VARIAKLE> BCU] AND Ja 


THE NEW FORM OF THE <UN STATEMENT>» UNKFAULT LIST><FAULT 
INFORMATIUN PARI>3<FAULT ACTION>»s TO BE KNUWN AS THE "GOTO" FORM» 
DUES NOT REQUIRE THE USER Th DO A "BhALD GU TO" QUI OF THE <FAULT 
AGITUN>3 THIS "HAD GU TUM WILE HAVE BEEN PERFORMED BY THE SYSTEMs 
CUNSEQUENTLYs»s PRUGRAM CUNTROL CAN CUNTINUE FROM THE <FAULT ACTION>. 
FON EXAMPLE. IN 


BEGIN 
ARRAY Zs al039999]3 
° 
. 
. 
READ CFIL» 100005 )3 
hb2Q3 
UN ZERODIVIVE? OL1]8#1.0E*473 
Ls ZOLIs=SQR166.32/001])5 
If Citar # 1)<10000 THEN GO TU L13 
. 
‘ 


ENDS 


THIS EXAMPLE USES THE HARDWARE TO CHECK THE VALUE UF QC1) FOR ZERO» 
INSTEAD GF QUING SO EXPLICITLY (THE FURMER IS GENERALLY FASTER)s 


NOTE ThaT THE STACK FUR THE "GOTO" CASE HAS BEEN CUT@BACK BEFORE 
CONTRUL IS THANSFERRED TU THE <FAULT ACTIUND>> 


PAG 
bQ252 ALGOL * "ON" STATEMENT SYNTAX * U1929"73 me 


THe <UISABLING ON STATEMENT> DISAHLES» OK VISARMS» THOSE FAULTS 
CORRESPONDING TO THE <FAULT NAMF>S IN THE <FAULT LISI>. 


AN GENERAL, THE EXECUTIUN OF THE <ON STATEMENT> SHOULD BE FASTER 
THAN PREVIQUSLYS MUREUVER» NO BLOCK EX11 IS REQUIREU TO DEACTIVATE 
The ARMEG FAULTS FOR ThE BLOCK. 


ecS22 ASSOLE F THRITEAPTER™ UGLLAR CARU UFIN © ogez6e73 

IHS CHANGE IMPLEMENTS THE ABILITY TU WRITE AFIEK CARRIAGE CONTROL. 
THiS 1S A OULLAR OPTION SET AROUND A FILE UECLARATION, A SWITCH 
tILE DECLARATION UK AN I70 STATEMENT. IF SET AROUND A FILE 
DECLARATION IT WILL PERTAIN TO ALL 1/0 STATEMENTS WHERE THAT FILE 
NAME EXPLICITLY APPEARS. 


If WRITEAFTER IS SET AROUND A SWITCH FILE LECLAKATIUN® IT PERTAINS 
TO THOSE I/0) STATEMENIS EXPLICITLY USING THE SWITCH FILE.IO. IF 
SET ARUUND AN I/U STATEMENT» 117 JUST PERTAINS TU THAT LvuU STATEMENT. 


UNZ66 ALGOL = MOQUVEL I = 10-1672 
THIS CHANGE GENERATES MUDEL ITI CODE BY DEFAULT, TO GENERATE MODEL 
A GOUDE $SET MODELI HAS TU BE IN THE PATCH DECK WhEN COMPILING ALGOL. 


meses: Seoe ee RECEC Les BUOCEAN INIHINGIG. “sUle20er3 

THE ACCEPT STATEMENT NOM RETURNS A BOULEAN VALUE. 1b iT TS USEU IN 
A BUULEAN EXPRESSION,» THE PRUGKAM WILL NUT STOP AND WAIT FOR A 
MESSAGE BUT WILL ACCEPT ONE ONLY IF THE UPEKATOR HAS ALREADY TYPED 
UNE IN, WHEN A MESSAGE 18 WAITINGs THE VALUE UF THE EXPRESSION 
WILL BE TRUE» UIHERWISE IT WILL HE FALSE. 


EXAMPLE 8 


IF ACCEPT (FP) THEN 


v0267 ALGUL = ACCEPT AD BUULEAN INTRINSIC & viezgu7 gr AGE re 


wneen ween © wae ene Oe Seneeen Sateuesss © stesenee 
BEGIN 

REPLACE P BY "STILL RUNNINGS 

DISPLAY (P)3 
ENU3 


vVO274 ALGOL © MEMORKYUUMP = 013°23=73 


THIS CrANGE IMPLEMENTS THE ABILITY 10 CALL MEMORYDUMP IN DCALGOL. 
THe SYNTAX 1583 


MEMORYDUMPCSIRING)3 


WHERE STRING HAS TU BE A SL1X(6) UK EIGHT(8) BIT STRING. 


VOZ78 ALGOL © ALGUL = USR CUNTRULD SEGMNTATN © 05923473 


PAKAGRAPH FGUR OF UOUO7 UF SYSTEM MISCELLANEA SRHUULD 
BE MULUIFIED 50 AS TO READ? 


UNLY PROCEDURES MAY BE INCLUDED IN A USER SEGMENT 
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bACKUP 


Boeke. ; Becoue co ebcete-cearh, jel teecease 

LF OTHE «RECURD UPTIUN 15 USED FOK BACKUP) THE RECORD COUNT WILL 
INCLUDE THE THHEE HEAUER RECORDS PLUS THE UNE BLANK KECORD OF THE 
FILE LABEL IF IT EXISTS. THUS» PRINTING RECURD 15 OF A LABELED 
FILE WhICH HAS GONE TO BACKUP WILL ACTUALLY PRINT RECURD 11 OF THE 
FILE» FUR EXAMPLE, TU UBTAIN THE FAST THROUGH THE TWENTIETH 
RECORUS, THE @IAS OF FUUR IS USFU CRECURD 5 24), 


LANGUAGE KEY SPECIFIER iS losese72 
THe ALGUL, COBULs AND FURTKAN KEY SPECIFIERS ARE SIGNIFICANT ONLY 
TO PRINTER (SYMBOLIC) FILES ANU THEREFURE» SHOULD NOT BE USED FOR 
PUNCH FILES, 


vOlel BACKUP = "END" AS RANGF STUF INDICATOR = 10°28#82 

THe EBCDIC STRING "END™ MAY BE USEL AS A PUSSIBLE RANGE STOP 
INUICATOR (BESIDES EITHER <INTFGER> Uk <"EBECDIC STRING>) WHICH IS 
CQUIVALENT TU SETTING THE SIUP INTEGER TL 99999999, 


PaG ) 
NEW FEATURES ‘AND DOCUMENTATIUN CHANGES Bed 


BHASTC 


vOISe2 BASTC © DULLAK CaAkOD STATEMENT * O1%15"73 


BASIC NOW PRUVIDFS THE USER wWITh THE ABILATY TO CUNTROL CUMPILER 
OUPTLONS with a BASIC PRUGRAM STATEMENT. 


EXAMPLE? 
100 $ SET LINEINFU 


THis 1S PRUVIDED MAINLY FUR RASIC PRUGRAMS ENTEREU THROUGH CANDE 
WHERE ALL BASIC STATEMENTS MUST BEGIN WITH A Lint NUMBER, 


OINCE THIS IS A STATEMENT AND NOT A OULLAR CARD, THE GPTION "8", 
WHiCH CONTROLS THE PRINTING UF DULLAR CAKUS»s WILL HAVE NO EFFECT ON 
THESE STATEMENTS. 


vOI5S4 BASIC = "LENGTH® STRING FUNCTIUN = 01915273 


THe STRING FUNCTiUN "LENGTH", WHICH RETURNS THE LENGTH OF A 
CHARACTER STRINGs MAY NUW BE ABBREVIATED AS "LENS 


LXAMPLES 


100 AS = “ARCH 
200 L ® LENCAS) 


Line 200 ASSIGNS L THE VALUE OF 3, 


v0162 BASIC © BASIC CHARACTER DATA EXTENSION © 128U8=72 


THE HANDLING QF CHARACTER STRINGS IN BASIC HAS BEEN EXTENDED IN THE 
FULLUWING WAYS? 


00162 BASIC. © BASIC CHARACTER DATA EXTENSION. © 12208075 AGE ; 


le THE MAXIMUM LENGTH OF A CHARACTER STRING HAS’ BEEN 


EXPANDED FROM 63 TO 255 CHARACTERS. 


@e FIVE SYSTEM FUNCTIONS HAVE BEEN ALDED FOR MANIPULATING 


CHARACTER STRINGS» THEY ARES 


Ae 


be 


VAL(SS$) 


THIS FUNCTION HAS ONE ARGUMENT, S$.e THIS 
FUNCTION RETURNS A NUMERIC CONSTANT 

CORRESPONDING TO THE VALUE OF 58. S58 MAY BE 
A STRING CONSTANT» STRING VARIABLE Ok A 


“STRING EXPRESSION, THE CHARACTERS OF WHICH 


FURM A VALID NUMBER. 
EXAMPLES 


106 AS = "123," 

200 BS #® "375E+21" 
300 N ® VALCAS + BS) 
400 END 


AFTER THE EXECUTTUN OF THE ABUVE PROGHAMs N 
WILL HAVE THE VALUF 1623375t¢23. 


STRECN) 


THIS FUNCTIUN HAS QNE ARGUMENT» Ne THE VALUE 
RETURNED WY THIS FUNCTION IS A STRING 
CORRESPUNDING TO THE VALUE UF Ne N MAY BE A 
NUMERIC CONSTANT+ ARITHMETIC VARIABLE OR 
ARITHMETIC EXPRESSION» THE STRING RETURNED 
BY STRS IS THE SAME AS IF THE VALUE OF N HAD 
BEEN PRINTED WITH A "PRINT" STATEMENT. 


EXAMPLES 


100 S$ ® STR&(123) 
200 ENU 


AFTER THE EXECUTION OF THE ABOVE PROGRAM, S¢ 
WILL HAVE THE VALUF 123", 
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Uu162 BASIC = BASIC CHARACTER DATA EXTENSIUN = 12-oae7>*St 7? 


Co EXTSC(SSs5eE) 


THIS FUNCTIUN "EXTRACTS" A DESIGNATED SEGMENT 
OF A CHARACTER STRING. THE ARGUMENT S 1S THE 
NUMBER OF THE CHARACTER FOSITION IN SS AT 
WHICH THE EXTRACTION IS TO START AND THE 
ARGUMENT E 1S THE NUMBER UF THE CHARACTER 
PUSITION IN SS AT WHICH JHE EXTRACTION IS To 
END. S AND E MAY BE NUMERIC CONSTANTS,» 
ARITHMETIC VARIABLES UR ARITHMETIC 

EXPRESSIONS. S$ MAY BE A STKING CONSTANT,» 
STRING VARIABLE OR STRING EAPRESSIONS. 


EXAMPLE! 


100 AS * "1234567" 
200 ES * EXTSCA8s356) 
J00 END 


AFTER THE EXECUTION UF THE ABOVE PRUGRAMe ES 
WILL HAVE THE VALUF "3456". 


De SCNCSSs08eNoS) 


THIS FUNCTIGN RETURNS AS A VALUE THE NUMBER 
OF THE CHARACTER POSITIUN AT WHICH A 
SPECIFIED UCCURRENCE OF A STRING SEGMENT 
OCCURS WITHIN ANDTHER STRING. THE FUNCTION 
RETURNS A VALUE OF ZERO IF THE SPECIFIED 
OCCURRENCE OF THF STRING SEGMENT DUES NOT 
EXIST. 


S$ IS THE STRING IN WHICH THE STRING SEGMENT 
OCCURS AND. US IS THE SEGMENT WHICH IS DESIRED. 
THE ARGUMENT N TS THE NUMBER OF THE 

OCCURRENCE WHICH TS DESIRED ANU THE ARGUMENT 
S IS THE NUMBER OF THE CHARACTER POSITION IN 
S$ AT WHICH THE "SCAN" IS TU BEGIN. S$ AND O 
$ MAY BE STRING CUNSTANTS» STRING VARIABLES 


DU162 


BASIC “© BASIC CHARACTER DATA EATENSIUN © 12"08973'9 


ae acon oe ese @®e ®S Bae veeanveouew 8°28 S28 hw ee eOeean eo S*eeeaee8 


Ee 


QR STRING EXPRESSIONS ANU S AND E MAY BE 
NUMERIC CONSTANTS.» ARITHMETIC VARIABLES OR 
ARTTHMETIC EXPRESSTUNSs 


EXAMPLES 


100 S$ = *"ABKCBERDBBEBB 
200 FS = "BB" 

300 A & SCNCSSsPh$ol01) 
400 B # SCNCSS+P8$5104) 
500 C # SCNCS$s+P$5207) 
600 D = SCNCS$>P$5501) 
700 END 


AFTER THe ABOVE PROGRAM 15 EXECUTED A WILL 
HAVE THE VALUE TWUs B WILL HAVE THE VALUE 
FIVEs, C WILL HAVE THE VALUE 12 AND "0" WILL 
KRAVE THE VALUE ZERM BECAUSE STARTING WITH THE 
FIRST CHARACTER mt Ss ThERE IS NO FIFTH 
OCCURRENCE OF PS. 


REPSCS$,O08eNSoN0S) 


THIS FUNCTION RETURNS A STRING WHICH IS 
FORMED BY REPLACING" SPECIFIED OCCURRENCES 
CF A SEGMENT OF A STRING WITH NEW STKING 
SEGMENTS« 


THE ARGUMENT S$ IS THE SOURCE STRING IN WHICH 
THE REPLACEMENTS® ARE TO UCCUR. Os 1S THE 
STRING SEGMENT WHICH IS TO BE REPLACED bY THE 
NEW SEGMENT NSe THE ARGUMENT N SPECIFIES HOW 
MANY OCCURRENCES OF US ARE 10 BE HEPLACED AND 
THE ARGUMENT S SPECIFIES THE NUMBER UF THE 
CHARACTER POSITION AT WHICH THE SEARCH AND 
REPLACEMENTS ARE TQ BEGIN. AS WITH THE OTHER 
FUNCTIUNS - THE STRING ARGUMENTS MAY BE STRING 
CUNSTANTS» STRING VARIABLES UR STRING 


EXPRESSIONS ANU THE NUMERIC ARGUMENTS MAY BE 


E 
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NUMERIC CONSTANTS, ARITHMETIC VARIABLES OR 
ARITHMETIC EXPRESSTONS.» 


IF THE ARGUMENT N (THE NUMBER OF REPLACEMENTS 
TO BE MADE) IS LESS THAN ZERO» THEN ALL 
OCCURRENCES OF Of, STARTING WITH THE STH 
CHARACTER IN THE STRING S$ WILL BE REPLACED, 
IN THIS CASE THE STRING TO GE KEPLACED (IeEos 
OS) CANNOT BE THE NULL STRING. 


IF N IS EQUAL TO ZERO NU REPLACEMENIS ARE 
MAUVE AND THE VALUE RETURNED bY REPS IS A 
STRING EQUIVALENT TOU SS, 


WHEN WN IS GREATER THAN ZERO» THEN BEGINNING 
WITH CHARACTER S UF S$s N OCCURRENCES OF Of 
ARE REPLACED BY NS, 


EXAMPLES 


100 AS = ABBUBBNBBEBB* 

200 8S = "BB" 

300 DS * REPESCAKsBSe%9%, 104) 
400 ES = REPSCASsbSe"X","%157) 
500 FS ® REPSCAS,BSo"4%,e51) 
“600 END 


AFTER EXECUTIUN OF THE ABOVE PRUGRKAM O$ WILL 

“HAVE THE VALUE “ABRC@DBHEBB"™>» ES WILL HAVE THE 
VALUE "ABBCBBDXEX" AND "FS" WILL HAVE THE VALUE 
"A#CSDBBEBB", 


LO163 BASIC «= TIME AND VATA FUNCTIONS © 1isi2e72 
THE 66700 BASIC LANGUAGE NOW PROVICES THE PRUGRAMMER WITH THREE 
TIME FUNCTIONS AND TWO DATA FUNCTIONS WHICH CAN BE REFERENCED BY A 
BASIC PROGRAM, - 3 . . : 


TIME FUNCTIONS! 


VO163 BASIC = TIME AND MATA FUNCTIONS = tisiz=72 PASE 29 


de CLKS 


THLS FUNCTION PROVIDES THE TImt UF VAY AS A STRING SIX 
CHARACTERS LONG IN THE FORMS 


HH ewe 


WHERE "HH 1S HOURS» "MM" 1S MINUTES» ANU "BY ITS A BLANK SPACE, 
TRE TIME 1S BASED ON A 24"HUURK CLOCK, 


2e BCL 


THLS FUNCTION RETURNS THE TIME OF DAY» BASED UN A 24"HQUR CLOCK, 
IN HOURS ANU DECIMAL FRACTIONS OF THE HOUR. FUR FXAMPLE® A 
PRUGRAM RUN AT 31345 FM WHICH REFERENCES "BCLY WILL RECEIVE AS A 
VALUE FOR ®BCL™ THE NUMBER 15.756 


3-6 TIM 


THIS FUNCTIUGN RETURNS THE FLAPSED PRUCESSUR T1IMt SINCE THE JOB 
HE GAN. THIS TIME IS EXPRESSED IN SECUNUS ANU DECIMAL FRACTIONS 
oF SECUNDS, 


VATE FUNCTIONSS 


1s DATS 


THIS FUNCTION FROVIDES THE CURRENT UATE AS A STRING EIGHT 
CHARACTERS LONG IN THE FORMS 


MM/DD/YY 


WHERE "MmM® JTS THE CURRENT MONTHs "UUM IS THE CURRENT DAYs AND 
"YY 1S THE CURRENT YEAK. 


2e ICA 
THIS FUNCTION RETURNS A SILX*NIGIT INTEGER OF THE FORM? 
YYMMODD 


WHERE "yy" TS TWO DIGITS REPRESENTING THE YEAR» "MM" IS TWO 
DIGITS REPRESENTING THE MONTH» AND "DD" IS TwO DIGITS 


PAGE 26 
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REPRESENTING THE DAY 


ALL FIVE FUNCITTUNS MAY BE USED DIRECTLY 1N A "PRINT" STATEMENT (Eo 
Goer "100 Prin? DATS"). ALSO» THE FUNCTIUNS "CLKE$" AND "DATS" MAY 
bE ASSIGNED IC STRING VARIABLES. ANU "TIM™, "BEL™, AND “"IDA™ MAY BE 
ASSIGNED TU WUMERIC VARIABLES, 


VO164 BASIC =" RESTURE & DATA STMT EXTENSJUNS © 118U05"#792 

THe "DATA" STATEMENT IN BASIC HAS BEEN EXTENDED SO THAT NOW STRING 
VATA AND NUMERIC DATA AKF STORED INTERNALLY AS TWU SEPARATE DATA 
LIToTS. 


AN AUDITION» [1 IS ALSO NU LONGER NECESSARY TU ENCLUSE IN WUUTES 
STRING CUNSTANTS APPEARING IN DATA STATEMENTS, FOR UNQUOTEDO 
STRINGS IN DATA STATEMENTS LEADING BLANKS ARE IGNURED, BUT ANY 
BLANKS FULLOWING Tht STRING ARE NOT IGNURKEDs. AN UNQLOTED STRING IS 
CONSIDERED FTO HE ANY LATA LIST ELEMENT WHICH LUES NUT BEGIN WITH A 
WUUTE® NUMBER.» +5 5 os OK @, 


EXAMPLES 


10 READ Ap Bs XB YS 

20 PRINT "AS" Ay "Ke" B 

30 DATA FIRST THINGs 9s 175 "46" 

40 PRINT "xg=" x$, "YSe" YE 

50 END 
WHEN COMPILED AND EXECUTEU THIS PRUGRAM WILL PRUDUCE THE FOLLOWING 
UUIPUTS 


azy B= 17 
XSF IRST TRING YS=246 


IN TRE EXAMFLEs LINE 10 CUNTAINS TWO NUMERIC VARIABLES FOLLUWED BY 
Twu STRING VARIABLES AND THE DNATA ELEMENTS IN LINE 30 ARE URDERED 
WITHOUT REGARD TU WHETHER THEY ARE STRING UR NUMERIC CONSTANTS.» 
THE UNLY SIGNIFICANT CONSIVERATIUN IS THAT THE NUMERIC DATA ITEMS 
APPEAR IN JHE ORUER IN WHICH THEY ARE 10 BE ASSIGNED TO THE 


00104 BASIC © RESTORE & LATA STMT EXTENSIONS © 11*05=7548E 27 


VARIABLES A AND be NO THAT THE STRING DATA ITEMS APPEAR IN THE 
URUER IN WHICH THEY ARE TO Be ASSIGNED TO THt STRING VARIABLES xs 
ANU YS$o 


THE "RESTORE" STATEMENT HAS ALSO BEEN EXPANDED TU HANOLE THE Two 
SEPARATE LISTS FOR DATA STATEMENTS. 


THe RESTORE STATEMENT NUW HAS THE FOLLUWING FORMATS 


RESTORE 
Ok 

RESTORE * 
fk 

RESTORE § 


THe FURM *RESTORE" INSTRUCTS THE FRUGRAM TU RETURN TO THE START OF 
THE NUMERIC DATA LIST ANU TO RETURN TO Tht. START OF THE STRING DATA 
LOT FOR THE NEXT CONSTANTS 10 BE ASSIGNED IN A KEAD STATEMENT. 
"RESTURE ** INSTRUCTS THE PROGRAM TU RETURN 1U 1FE START OF THE 
NUMERIC DATA LIST ONLY. THE FURM "RESTURE $" INSTRUCTS THE PROGRAM 
TU RETURN TO THE START OF THE STKING VATA LIST ONLY. 


EXAMPLE? 


10 VATA STRINGI» 13+ 765 STRING? 
20 READ A»sB 

3O PRINT "Al 30 A ANO BEY A A 
4G READ xs 

50 PRINT "aT 50 x$2" x$ 

60 RESTCRE & 

70 READ YS 

60 PRINT "AT 80 YSE" YS 

90 RESTORE * 

100 READ C 

110 FRINT “aT 110 C=" C 

120 RESTORE 

130 READ ASe BSs Xe Y 

140 PRINT Xs Yo ASs HS 

150 END 
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WHEN CUMPILEU AND EXECUTED. THIS FRUGRAM WILL PRODUCE THE FOLLOWING 
UUTPLTS 


AT 30 A AND B® 13 76 

AT 350 X82 STRING] 

AT 60 Y= STHING) 

AT 110 C# 13 

13 76 STRING STRING2 


vO1l77 BASIC © STKING VARIABLE NAMES © 11*C5972 

BASIC NUW ACCEPTS STRING VARIABLE NAMES CONSISTING OF A LETTER» 
FULLUWED BY A SINGLE DIGIT» FEULLOWEL BY A DOLLAR SIGN» FOR 
tXAMPLE, "ags" ITS NUW A VALID STRING VARIABLE NAME IN BASIC, 


WUTES THIS APPLIES UNLY TO STRING VARIABLES AND NUT TO STRING ARRAY 
NAMESs STRING ARRAY NAMES MAY ONLY BE IN THE FORM "AS", 


vO178 BASIC © STRING FUNCITONS © 1ievse72 
BASIC PRUGRAMS MAY NOW CUNTAIN USER DEFINED STRING FUNCTIONS. THE 
UStk MUST DEFINE HIS STRING FUNCTIONS USING THE "DEF™ STATEMENT. 


FORMATS 


1. N UEF FNAS = E 
2. N DEF FNAS(UD) BE 


WHERE N IS THE LINE NUMRER QF THE Dt STATEMENT» & IS AN 
ALPHABETIC CHARACTER INSERTED BY THE USER, E IS AN EXPRESSION 
wHICh, wHEN EVALUATED» YIELDS A STRINGe AND D IS A LIST OF ONE 
UR MORE DUMMY VARIABLES StPARATED EY CUMMASs 


A DUMMY VARTABLE CAN BE A STRING VARIABLE Ok AN ARITHMETIC VARTABLE 
ANU IS USEFU ONLY AS A PLACE HULDER FUR THE VARIABLE WHICH WILL BE 
USEU WHEN THe FUNCTION 15 CALLED. 


THE USER DEFINE STRING FUNCTIUN MAY BE USED IN A BASIC PROGRAM 
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WHEREVER A STRING VARIABLE CAN BE USED. 
EXAMPLES 


100 DEF FN CSCXSsYSeS) © X8 # SPACE(S) + Ys 
200 LET AS = "A VERY® | 

300 LET 8S = "GOOD BEGINNING" 

400 LET F§ = FNCSCAS+B$.10) 

500 ENO 


AFTER THE EXECUTION OF LINE 400. FS WILL CONTAIN THE 
STRING "A VERY GOOD BEGINNING". 


W082 BASIC © MULTIPLE STMT "DEF FUNCTIONS = 11°05°72 
THE "DEF" STATEMENT HAS BEEN EXPANDED SO THAT THE BASIC PROGRAMMER 
MAY NOW WRITE MULTIPLE STATEMENT FUNCTIUNS FOR THOSE FUNCTIONS 
WHICH CANNOT BE EXPRESSED IN A SINGLE LINE “DEF® STATEMENTs THE 
FIRST STATEMENT OF A MULTIPLE LINE FUNCTIUN 4S OF THE FORMS 


te N OEF FNL 
20 N OF Fat (Dd) 


WHERE N™ JS THE LINE NUMBER OF THE "DEF STATEMENT» *L® IS AN 
ALPHABETIC CHARACTER INSERTED BY THE USER» AND "OD" JTS A LIST OF 
ONE OR MORE DUMMY VARIABLES SEPARATED BY COMMAS, 


IF THE FUNCTION RETURNS A STRING AS A VALUE FOR THE FUNCTION» THEN 
THE "DEF" STATEMENT MUST BE IN ONE OF THE FOLLOWING FORMSs 


le N DEF FNLS 
2s N DEF FNLS (0D) 


THE FIRST STATEMENT OF THE FUNCTION IS FULLOWED BY THOSE STATEMENTS 
WHICH DEFINE THE FUNCTIONs THE LAST STATEMENT OF THt FUNCTIUN MUST 
BE GF THE FORKS 


N FNENDO 


WHERE ®"N* TS THE LINE NUMBER OF THE "FNEND™ STATEMENT. 


00182 BASIC © MULTIPLE STMT "DEF™ FUNCTEONS © Lisose7bASE 30 


THIS STATEMENT INDICATES THE END OF THE MULTIPLE STATEMENT FUNCTIONe 


"DEF" STATEMENTS MAY NOT BE NESTED. FURTHERMORE» FUNCTIONS DEFINED 
BY "COEF" STATEMENTS CAN BE EXECUTED ONLY BY INVOKING THE FUNCTION 
WITH A FUNCTION CALLs SPECIFICALLY» TRANSFER OF PROGRAM CONTROL 
INTO THE RANGE OF A FUNCTION SURBPROGRAM BY ANY STATEMENT OTHER THAN 
A FUNCTION CALL IS NOT PERMITTED.  ALSUs ‘TRANSFER OF PROGRAM 
CONTROL FROM THE RANGE OF A FUNCTION SUBPROGRAM IS NOT PERMITTED 
EXCEPT BY NORMAL RETURN FROM THE SUBPROGKAM (I. Eos THE EXECUTION 
OF A "FNEND® STATEMENT) 


THIS "DEF STATEMENT EXPANSIUN ALSO PRUVIDES THE BASIC PROGRAMMER 
WITH THE ABILITY TQ SPECIFY VARIABLES TO BE USED AS "LOCAL" 
VARIABLES IN THE FUNCTION. TO SPECIFY A VARJABLE AS BEING "LOCAL", 
LIST THE VARIABLE NAME IN THE "DEF*® STATEMENT FOLLOWING THE 
FUNCTION NAME AND ARGUMENT LIST. 


EXAMPLES 


10 FUR I # © TO 5 


20 x = FNF (1) 
30 PRINT I *FACTORIAL=® x 
40 NEXT I 


50 OFF FNF (CN) Io x 
60 IF N <> 0 TREN 90 
70 FNF «& 14 

80 GOTO 140 

90 x 2 3 

100 FOR I = 1 TON 
110 Xmexe 
120 NEXT I 

130 FNF = x 

140 FNEND 

150 END 


THE EXAMPLE WILL PRODUCE THE OUTPUTS 


O FACTORIAL = 1 
1 FACTORIAL = 1 
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2 FACTORIAL = 2 

3a FACTORIAL & 6 

4 FACTORIAL = 24 
5 FACTORIAL = 120 


hINE 50 DEFINES THE FUNCTION “F" TO HAVE UNE ARGUMENT "N® AND TWO 
LOCAL VARIABLES "I" AND *"X®, BY DEFINING "1" AND ®X*® TO BE LOCALs 
THE USE OF THESE VARIABLES IN THE FUNCTION WILL HAVE NO EFFECT ON 
THE GLOBAL VARIABLES "3" AND ®X" USED IN LINES 10 THROUGH 40. 
LINES 70 AND 130 ASSIGN VALUES TO THE FUNCTIUN FY, FUR A MULTIPLE 
LINE FUNCTION WHICH IS DEFINED AS A STRING FUNCTION (Es Ges 100 
DEF FNAS CBS» xX) C8)» THE FUNCTION VALUE ASSIGNMENT MUST SPECIFY 
THE FUNCTION NAME FOLLOWED BY "$* (E, Ges 200 FNAS = "THIS IS THE 
FUNCTION VALUE"), 


Uolgd BASIC 7 DULLAR QPTION OLD Basic” > A2risr72 

THE OOLLAR CARD OPTION “"ULORBASIC®™ (RESET BY DEFAULT) HAS BEEN 
PRUVIDED SOQ THAT WHEN METHOUS MF HANDLING CERTAIN BASIC CONSTRUCTS 
ARE CHANGED IN B6700 BASIC THE USER MAYs IF HE WISHES» avoro THESE 
CHANGES. BY SETTING THE OPTION OLDBASIC. WHEN OLOBASIC IS SET 
PRU@RAMS WILL COMPILE AND EXECUTE AS IF THE CHANGE HAD NEVER BEEN 
MAUVE « CURRENTKY THE CHANGES DETAILED BELOW HAVE BEEN MADE. 
HOWEVER, IN THE FUTURE OTHER FEATURES MAY BE IMPLEMENTED FOR WHICH 
LEAVING THE OLD METHOD IN THE COMPILER MAY BE DESIRABLE. IN THESE 
CASES SETTING THE UPTION OLNBASIC WILL CAUSE THE CONSTRUCT IN 
QUESTION To BE HANDLED AS PREVINUSLY, 


le THE HANOLING OF THE INPUT STATEMENT HAS BEEN CHANGED SO 
THAT NOW THE ONLY DELIMITER IN THE INPUT DATA LIST IS A 
COMMA. (BY SETTING OLDBASIC THE OLO METHOD OF BOTH 
BLANKS AND COMMAS AS DELIMITERS WILL BE USED). THIS 
CHANGE ALLOWS BOTH NUMERIC AND UNQUOTED STRING DATA TO 
CONTAIN EMBEDDED BLANKS», WHEREAS THE OLD METHOD WILL 
INTERPRET THE BLANKS AS NELIMITERSs 
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EXAMPLE! 
100 INPUT = AeS$ 
200 END 
WHERE THE INPUT DATA LIST IS? 
12 345,STRING VALUE +12 


THE ABOVE EXAMPLE WITH OLDBASIC SET WOULD CAUSE THE 
VARIABLE» As TO BE ASSIGNED THE VALUE 12 AND S$ TO BE 
ASSIGNED THE VALUE "345", 


WITH OLDBASIC RESET "A" WOULD BE ASSIGNED THE VALUE 12345 
AND *S$* WOULD BE ASSIGNED THE VALUE “STRING VALUE". 


THE HANOLING OF “MAT INPUT* STATEMENTS HAS BEEN CHANGED 
SO THAT NOW WHEN A "MAT INPUT® STATEMENT IS EXECUTED IT 
DOES NOT KEEP READING DATA ELEMENTS UNTIL THE ARRAY IS 
COMPLETELY FULL» INSTEAD IT WILL FILL THE ARRAY» IN ROW 
ORDER» UNTIL IT FINDS THE END OF THE DATA LIST. THE DATA 
LIST CONSISTS OF ONE LINE OF INPUT FROM AN EXTERNAL FILE 
OR REMOTE OEVICE, OR ONE CARD OF INPUT FROM BATCH MODE 
(SEE #3 BELOW). 


EXAMPLE) 


100 MAT INPUT AC363) 
200 MAT PRINT A 
300 END 


WHEN LINE 100 IS EXECUTED THE PROGRAM WILL WAIT FOR THE 
DATA ELEMENTS FOR MATRIX "AM. IF THE INPUT LIST IS! 


1620304 
THEN LINE 200 WILL PRUDUCE THE OUTPUT! 


1 2 3 


WHEN USING "MAT INPUT® WITH ONE UIMENSIONAL ARRAYS (loko 
VECTORS)» If THE NUMBER OF DATA ELEMENTS INPUT IS LESS 


32 


PAGE 


VV193 BASIC @ DGLLAR UPTTUN "OLD BASIC™ |= 12"16872 


THAN THE SIZt UF THE VECTOR. THEN THE VECTUR WILL BE 
RESIZED TO Be EQUAL IN SIZE TU THE NUMBEK OF ELEMENTS 
INPUT CSFE RELATED SYSTEM NUTE LU197). 


EXAMPLE: 


100 MAT INPUT A115) 
2U0 MAT FRINI & 
300 END 


WHEN LiWe 400 IS EXECUTED THE PRUGRAM WILL WALT FOR THE 
DATA FUR MATRIX "A™, JF THE INPUT IS3 


Vo2edo4e506 


THEN "AM WILL BE RESTZED TU CUNTAIN UNLY THESE SIX 
ELEMENTS. ANY ATTEMPT TU INDEX MATRSX PAN WITH AN INDEX 
VALUE GREATER THAN SIX WILL PRUDUCE AN "INVALIO INDEX" 
ERROR. LINE 200 WILL PRODUCE THE UUTRPUTS 


! 2 3 4 5 
6 


THUS, A VECTUR CAN BE RESIZED TU AN SIZE» "Ns WITH THE 
STATEMENTS 


100 MAT INPUT ACN) 


AND THEN SUPPLYING "N™ DATA ELEMENTS WHEN TIME STATEMENT 
IS ExXeECuUTEU., 


BY StTTING ULDBASIC "MAT INPUT™ STATEMENTS WILL CONTINUE 
TG FXPECT UATA UNITE THE ARRAY 2S CUMPLETELY FULL, THUS 
PREVENTING FARTIAL FILLING UF Tw DIMENSIUNAL ARRAYS AND 
ALOG ThE KESIZING THAT MAY UCCUR wlTH VECTURS. 


THE AMPERSAND CHARACTER CIeEs "S&™) LAN NOW BE USFD AS A 
CUNTINUATION CHARACTER Fok DATA BEING SUPPLIEL TO A MMAT 
INFUT™ STATEMENT (SEE SYSTEM NUTE LO1¥Y6 FUR AN EXAMPLE 
AND KULES AbBUUT THE USt UF THE AMPERSAND). WHEN ITT IS 
NUT PUSSITBLE TU FUT ALL THE DATA UN GWE LINE OF INPUT 
CFROM REMOTE DEVICES) (tr UNE CARL CERUPF BATCH MODE) THE 
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v0O193 BASIC © DOLLAR UPTTUN "OLD BASIC™® © 12°16792 ee 


USE UF THE AMPEKSAND AS THE LAST DATA ELEMENT WILL CAUSE 
THE PROGRAM TO CONTINUE LUQKING FUR DATA, 


BY SETTING ULUBASIC JHE USE UF THE AMPERSAND aS A 
CONTINUATION CHARACTER IS NULLIFIEU, HOWEVER, IT IS 
UNNECESSARY SINCE SETIING ULOBASIC WILL CAUSE "MAT INPUT" 
STATEMFNTS TU CUNTINUE READING DATA UNTIL THE ARRAY IS 
CUMPLETELY FILLEU, 


eoiyh BASIC ¢ DET FUNCTLUN IN BASIC © 12°1be72 

THE FUNCTION DET» WHICH RETURNS THE VALUE UF THE DETERMINANT OF 
ThE MATRIX WHICH WAS LAST INVERTED VIA THE "LNV® FUNCTION, IS NOW 
IMPLEMENTED IN B6700 HASIC. ET HAS NU ARGUMENTS ANU MAY BE USED 
IN AN ARITHMETIC EXPRESSION OR BE REFERRED TU DIRECTLY BY A PRINT 
STATEMENTs 


22222 BASIC 5 COTANGENT FUNCTION IN BASIC © 12*10-72 

THe CUTANGENT TRIGUNOMETRIC FUNCTIUN IS NOW IMPLEMENTED IN BASIC. 
TT Is REFERENCED AS "COTCX)™, WHERE X IS THE ANGLE, EXPRESSEU IN 
KAUIANSs, WHUSE COTANGENT IS TQ BE FUUNU. IT MAY BE USED ANYWHERE 
IN A BASIC PRUGRAM [HAT A BASIC MATHEMATICAL FUNCTION CAN BE 
REFERENCED, 


v0197 BASIC = NUM FUNCTIUN. e& Ole15e73 

THe NUM FUNCTION IS NOW IMPLEMENTED IN b6700 BASIC. THIS FUNCTION 
KETURNS THE WUMBER OF UATA FLEMENTS ENTEKEUD INTO THE LAST ARRAY 
WRACH WAS FELLEO BY A MAT INPUT STATEMENT 


iF THE ARRAY HAS ONLY ONE DIMENSION (leter IT IS A VECTOR) AND THE 
NUMBER UF UATA ELEMENTS INPUT TU THAT VECTOR VIA THE MAT INPUT 
STATEMENT IS LESS THAN THE SIZE UF THE VECTUR» THEN THE VECTUR WILL 


— PAGE 35 
DO197 BASIC © NUM FUNCTIUN = G1°15"73 : 


DE RESIZED TG BE AS LARGE AS THE NUMBER UF DATA ELEMENTS WHICH WERE 
INPuls IN THIS CASE NUM WILL CUNTAIN JHE NUMBER GF LATA FLEMENTS 
INPUT» wHICH ALSU wILL BE THE NFW SIZE UF Tht VECTOR. 


EXAMPLE 3 


100 CIM Aac15) 

2U0 MAT INPUT A 

3UQ PRINT "NuM =" NUM 
4uQ AC7) = 10 

500 END 


WHEN TRE a~abUVE PRUGRAM IS EXECUTED THE STATEMENT IN LINE 260 WILL 
WALT UNTIL ThE PATA ELEMENTS FUR THE ARRAY A HAVE BEEN SUPPLIED. 
IF THE DATA 1S THE VALUES 1s 2s 30 4 ANU Se THEN AC1) THROUGH ACS) 
WILL BE ASSIGNED THE VALUES OWE THRUUGH FIlvt AND A WILL BE RESIZED 
TO BE UNLY FIVE ELEMENTS LONG. LINE 300 WILL THEN PRODUCE THE 
UuUiPUTS 


NUM & 95 


APTER THAT CLINE 400 WILL GET AN INVALID INDEX ERRUR BECAUSE A IS 
UNLY FIVE LUNG ANO LINE 400 ATTEMPTED TU INUEA THE SEVENTH ELEMENT 
WF Ae CNOTES The PRUGRAMMER CAN RESIZE VECTOR A BACK TO 15 
ELEMENTS LATER IN THE PRUGRAM BY USING Tht STATEMENT? 


350 MAT INPUT AC15) 
ANU THEN WHEN LINE 350 [TS EXECUTED SUPPLYING 15 LATA ELEMENTS.) 


tOn TwU OIMENSIONAL ARRAYS FILLFU BY A MAT INPUT STATEMENT NUM WILL 
CUNTAIN THE NUMBER UF VATA ELEMENTS INPUT TU THE AKKAY. THE ARRAY 
WILL NOT BE RESIZED IF THE NUMBER OF LATA ELEMENTS INPUT 15 LESS 
THAN THE SIZt OF THE ARKAY. 


tOk BUTH Twu DIMENSITUNAL AND UNE DIMENSLUNAL ARRAYS» IF THE NUMBER 
uF DATA ELEMENTS IS MURE THAN VHe SIZE OF THE ARRAY, THEN THE MAT 
INFUl STATEMENT WILL ILGNURE THE EXCESS DATA AND NUM WILL BE EQUAL 
Tu THe SIZE OF THE ARKAY. 


SY SETTING THE UPTION "“QLUBASIC™ (SEE SYSTEM NUTE DU193) MAT INPUT 
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DO0197 HASILC = NUM FUNCTION © 01815873 : 


STATEMENTS WILE» aS IN THE PAST» CAUSE THE ENTIRE ARRAY TO BE 
FILLED AND THUS AVOID THE RESIZING OF VECTORS. 


meee. loeb) cece eee e eect PUNUIIUN. “2 Ulla 

THe "ASC™ FUNCTIUN 15 NUW IMPLEMENTED IN 66700 BASIC. THE VALUE 
KETURNEU BY THIS FUNCTIUN IS THE NUMERIC VALUE UF THE SPECIFIED 
bHCUIC CHARACTER. IF THE CHARACTER CANNOT BE PRINTED AN 
ABBREVIATION FUR THE CHARACTFR MAY BE USED. THE ABBREVIATIONS 
WHICH THE FUNCTION WILL ACCEPT ARE NUL» SUH» STIX» EVXs HT» DEL» VT» 
FF, CR, St» SIs DLE» UC1s DC2, DC3s DC4s BOs CAN» tMe FS» GSs RSo 
US» LF»o ETH, FSCs ENQs ACKs BEL» SYN» EQ» NAK»s SUB ANU SP, 


jXAMPLE?S 


100 PRINT "1 2%, ASC(1) 

200 PRINT "A a, ASCCA) 

300 PRINT "LINE FEED®%, ASCC(LF) 
400 PRINT "NUL 2%, ASCCNUL) 

500 ENO 


WHEN EXECUTED THE ABUVE PROGRAM WILL PRUDUCE THE FOLLOWING OUTPUT? 


1 = 241 
A ® 193 
Line FEED = 37 
NUL = Q 


vudcu4 BASIC " APOSTRUPHE © AS COMMENT SIGN = O1015"°73 

THe APOGSTROPHE CHARACTER CAN NUW BE USED IN BASIC PROGRAM 
STATEMENTS TO INDICATE THAT THE REMAINUER UF A LINE IS A CUMMENT. 
ANYTHING IN A BASIC STATEMENT FOLLUWING AN APOSTROPHE WILL RE 
TREATED AS EXPLANATURY KEMARKS» 


WYU2O5 BASIC © EXPANDEUD "ITF" SYNTAX © 01°15°73 


. eae PAGE 7 
00205 BASIC * EXPANVED "It" SYNTAX © 01°15°73 S32 


THe "LF STATEMENT IN BASICU HAS BEEN EXPANUED TO ALLUW STATEMENTS 
UF TRE FORMS 


lf <BOOLEAN EXPRESSIUN> GU Tn «LINE NUMBEK> 
EXAMPLES 


650 IF a<sb GU Ta 1100 


V0Z06 BASTC © LIMIT DULLAR CakD OPTION = 01°15"73 
THE DULLAR CARD UPTIUN "LIMIT" 15 NOW IMPLEMENTED IN BASIC. THE 
PRUPER FORMAT IS 


LIMIT <INTEGER> 


THe BASIC COMPILER WILL TEKMINATE CUMPILATION UF A PROGRAM IF THE 
NUMBER CF SYNTAX ERRORS IN THE PROGRAM EQ@UALS UR EXCLEUS <INTEGER>. 
AF THE LIMIT GFTIUN IS NUT SPFCIFIED ThE DeERAULT VALUE IS 100 (10 
iF CALLED FROM CANDE). 


vOe0? BASIC = RELATIUNAL UPLRATURS ®& O1lei5e73 
BASIC AUW ALLOWS RELATIONAL QOPERATURS UF THE FORM © sEQee OTHER 
ACCEPTABLE OPERATORS ARE ol Toe wlTeon olbor» AND oNhoo 


EXAMPLE 


100 If A sNE«e B THEN 200 


vdZud BASTC © ENPUT*UUTPUT STATEMENTS © 01°22°73 


% 


HO700 BASIC HAS BEEN EXTENDED SQ THAT INPUT LISTS» UF "READ" ANU 
"INPUT® STATEMENTS» AND UUTRUT LISTS» UF "PRINT™ STATEMENTS» MAY 
NOn SPECIFY 48 ITEMS. THE PREVIUUS LIMII] WAS 16. 


. . PAGE 38 
DOQ2Z09 BASIC © "INPUT" STATEMENT IN BASIC = (1"06"73 


eeee os, Seek eee ous ei oee uence a ae weeec’ paves aten es 

[HE "H6700 BASIC LANGUAGE MANUAL” 1S IN ERROR IN ITS DESCRIPTION OF 
THE INPUT STATEMENTs THE MANUAL STATES» "EAGH TIME AN INPUT 
STATEMENT IS EXECUTEUs THE NEXT DATA ITEMS IN THE FILE ARE READs™ 
THE MANUAL SHOULU HEAD "EACH TIME AN INPUT STATEMENT IS EXECUTEDs 
[HEN STARTING WITH THE NEXT LINE UF DATA» DATA ITEMS IN THE FILE 
ARE READ." 


EXAMPLES 


100 FOR I 2 i To 3 

200 INPUT FILE NUMBERS» ACT) .KCI) 
300 NEXT J 

400 ENU 


WHERE FILE "NUMBERS" CONTAINS THE FOLLUWING THREE LINES OF 
LATA 


lh» @s 3s 4 
De 6s 7so Ae Yo 10 
Tle 1256 13 


THE MANUAL INCURRECTLY IMPLIES THAT THIS PROGRAM WILL ASSIGN VALUES 
1U THE MATRICES A AND B&B SO THAT? 


ACl) = 1 C1) © 2 
AC2) = 3 blz) & 4 
AQG3) # § b(3) # 6 


HUWEVERs THE CUKRECT RESULTS ARE 


AQC1l) = 1 bCi) = 2 
AC2) 3 § h(2) = 6 
AC(3) = 11 hC3) © 12 


vQZa1 BASIC = "PRINT" STATEMENT IMPROVEMENTS © Y1*29"73 


THE FULLUWING ThWU CHANGES HAVE BEEN MADE TO THE BASIC PRINT 


DU221 


PaGt 
BASiC = "PRINT" STATEMENT IMPRUVEMENIS © u1-29¢73" : 


eouaeae aaa eens een ununbaaese eae eaennna*non Ld Smee eaaan 


STATEMENTS 


le 


2e 


EACH PRINT STATEMENT wHICH FRINTS TO A FiLE wILt NOW 
BEGIN WRITING ITS DATA ON A NEW LINE ANU CONINTUE OVER AS 
MANY LINES AS NEEVED (4S DOCUMENTED IN THE "BO700 BASIC 
LANGUAGE" MANUAL PP 4"13). 


IF THE LAST PRINT STATEMENT (NUT TU A FILE) IN A BASIC 
PRUGRAM IS TERMINATED wITH A CUMMA UK A SEMICOLON THAT 
OUTPUT LLST WILL NUW BE FRINTED WHEN THt PROGRAM IS 
TERMINATED. 
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NEW FEATURES AND DOUCUMENTATIUN CHANGES PGE ad 


bINNER ; 


BINDER = alGOL 10 ESPUL BINDING = Uie15e73 


IT IS WOW PUSSIBLF TU BIND ALGOL ANU DCALGUL PRUCEDURES TO THE MCP 
SUBYECT TU THE FOLLUWING RESTRICTIONS! 


Le 


de 


Je 


THE PROCEDURE MUST BE LEVEL TWO Ok HIGHER, 


IF THE PROCEDURE IS LEVEL TWO ANU REFERS TU MCF GLOBALS» 
SINTRIWSICS MUST BE SET DURING COMPILATIUNe 


THE PRUCEDURE MAY REFER OUNLY 10 CECLARED ITEMS WITHIN 
ITSELE Ok IN THE UUTER BLOCK OF TRE MCP, 


UTHERWISE NORMAL BINDING PROCEDURES APFLY. 


NEW FEATURES AND DUCUMENTATIUN CHANGES PAGE 41 


CANDE 


eee: CONDE cr ERCEUDE CUNMAND:, heer 

A wEW CANDeE EDITING CUMMANDs EXCLUDE» HAS BEEN IMPLEMENTEDs~ THE 
SYNTAX PARALLELS THAT FUR MERGE AND REMERGE@*THE KEYWURD “FXCLUDE® 
(MINIMUM ABBREVIATION EXC) FOLLOWED BY A FILE NAME ANO OPTIONAL 
SEQUENCE RANGE LIST. ANY LINE IN THE WURKFILt WITH THE SAME 
SEWUENCE NUMBER AS A LINE IN THE EXCLUDE FILE IS DELETED. 
CUNMATCHED UWLNES IN THE EXCLUDE FILE ARE IGNURKEL.) EXCLUDE MAY BE 
UTILIZED ALONG WITH FIND@TU@FILE TO DELETE SELECTED LINES IN A FILE. 


t= 
l 4 
io 
ex 
em 
&> 
om 
sm 
| Bx 


Bee eee Caer cene: ssc setae 

THE MAXIMUM NUMBER OF STATIONS CMAXSTATIONS) THAT MAY BE ATTACHED 
1G CANDE HAS BEEN INCREASEU FRUM 25 TO 35» AND THE MAXIMUM NUMBER 
UF TASKS WHICH MAY BE ACTIVE AT ONE TIME (MAXTASKS) HAS BEEN 
ANCREASED FROM FIVE TO TEN» IN SYMBOL/CANDE AND SYSTEM/CANDE AS 
VISTRIBLTED. THE MAXIMUM NUMBFR UF SIMULTANEUUS EDITING FUNCTIONS 
UR LISTINGS (MAXWURKS) REMAINS SIX. ALL THESE PAKAMETERS MAY BE 
VARTED TO SUIT THE LOCAL INSTALLATION» BY RECOMPILING CANDE. 


00237 CANDE = PAGESKIP VARIANT @& OLelse73 

CANDE NOW SETS THE PAGESKIP VARIANT RATHER THAN TUGGLEL3) TO 
ANUACATE NEW*PAGE ACTION IN UCWRITE WRITE MESSAGES+ THIS FEATURE 
AS USED IN SENDING FULL@PAUE QUTPFUT TU SUREEN DEVICES. 


D0236 CANDE * HISTRY PRUCSNG FOR RSVP & SNTX = Q¢"U5"73 


PAG 4 
VU2368 CANUE © HISTRY PROCSNG FOR RSVP & SNTX © U2"°05873 3 e 


weaas budea «& saceed: paaedee cea aeae Suen ce ekeaues 
CANUE WILL WUW DISPLAY RSVP MESSAGES (NO FILE» ACCEPT» ETC.) AT 
THE USER STATIUN WHEN HIS TASK IS WAITING (STEU) FOR OPERATOR 
ATIENTIGNs NO EXPLICIT REPLY MECHANISM HAS BEEN PROVIDED, ALTHOUGH 
THE USER MAY ENTER "?0DS" Th TERMINATE THE TASKe TASKsHISTORY 
PRUCESSING HAS BEEN FURTHER MODIFIED TO ACCOUNT FOR A NEW VALUE 
ANUICATING THAT A COMPILATIUN TERMINATED WITH SYNTAX ERRORS? 
VISIBLE QUTPUT [5S NOT EFFECTED. 


0239 CANDE “ LOGGINGS SESSION NUMBKS3 SPLIT a 02*05*73 
CANDE LOGGING HAS BEEN MOUIFIED IN KEEPING WITH THE NEW WORK@FLOW@ 
MANAGEMENT LUGGING STRUCTURE. THE SYSTEMLOG INTRINSIC IS NO LONGER 
USEDS MCSLOGGER AND DCERKORLUGGFR PERFURM SIMILAR FUNCTIONS. 


LACH CANDE SESSION 195 ASSIGNED A NUMBER (CCURRESPUNDING TO JOb 
NUMBER FUR BATCH JUHS). A JUBFILE EXISTS FOR THE SESSTON3S ALL 
TASKS RUN IN THAT SESSIUN ARF LUGGED IN THAT JOBFILE. PRINTER AND 
PUNCH GUTRUT FROM THESE TASKS ARE GATHERED WITH THE JOBFILE. AND 
PRUCESSED TOGETHER AT THE END UF THE SESSIUNe THE SESSION NUMBER 
BECOMES THE J0u NUMBER FUR EACH TASK IN THE SESSION. THE SESSION 
NUMBER [5S DISPLAYED AT LOUGUN AND LOGUFF. 


A WEW CUMMANDs SPLIT (MINIMUM ABBREVIATION "SPL™)» HAS BEEN ADDED 
10 ALLOW PROCESSING UF THE ACCUMULATED UUTPUT WITHOUT THE USER 
LOGGING UFF. SPLIT DIVIDES THE SESSLUN? ThE CURRENT SESSION IS 
FURMALLY LOUGEU OFF (CCAUSING PROCESSING UF THE JuB FILE)$ A NEW 
SESSIUN NUMBER IS ASSTGNED ANO NEW FURMAL SESSION BEGUN. NO CHANGE 
AS MADE IN WURKFILEs USERCUDE UR CHARGECULE STATUS. 


THe TIMES PRINIED AT HELLO» BYE» SPLIT OR CHARGE TIME ARE THE 
ACCUMULATION SINCE THE PREVIWUS SUCH TIME. 


v02Z40 CANDE | UCP FAULT REPORTING = 02°19"73 


CANUE NOW WRITES» UN A SEPARATE PRINTER BACKUP FILE» AN ANNOTATED 
LISTING UF THE UCP FAULT MESSAGGE WHEN A WATACOM PRUCESSOK FAULT 


C0240 CANDE * DCP FAULT REPURTING ©* 02°19"73 ame We 


CUNDITICN TS DETECTED. THE LISTING SHOWS THE DCP NUMBER». FAULT 
NUMBER » AND CONTENTS OF UCP REGISTERS ANU SCRATLCHPAD MEMORY, 
APPROPRIATELY LABELED. THE INTNAME ANU DEFAULT TITLE OF THE FILE 
1S "5," 


UO275 CANDE * LOG ANALYZER = 03°07°73 

THE CANDE COMMANL “LOG NOW INVOKES SYSTEM/LUGANALYZER® KATHER THAN 
SYSTEM/LOGOUT. THE <INPUT SPECIFICATIUNS> FULLOWING LOG" ARE 
PASSED DIRECTLY TU LUGANALYZFR FUR INTERFRETATIUN. LOGANALYZER 
UivIveS ITS PRINTER GuUTPUT TO FIT THE TERMINAL wluTr, AS SPECIFIED 
IN NDLo 


VO276 CANDE = LINESSTATION RFADY =& 03°23°73 
SEVERAL CHANGES HAVE BEEN MADE TU MINIMIZE OLCURRANCES OR LINE*NOT# 
READY OR STATIGN“NOT#*READY® SITUATIONS? 


le THE "?REALDY" CUNTRUL CUMMAND NUW READIES BUTH LINE AND 
STATIUN. 


2+ THE ERRUR COUNT IN CANDE IS KESET WHEN SWHITCHED@LINE 
STATUS CHANGES. 


3e WHEN CANDE ITS STARTED» IT ATTACHES ALL STATIONS FOR WHICH 
CANDE {£5 THE MCS» MAKING LINE ANU STATION READY, AND 
SENDING A MESSAGE TO THOSE THAT ARE CONNECTED OR 
UNSWITCHED. 


NOTE THAT MAXSTATIONS IN CANOF MUST BE LARGE ENOUGH FOR ALt CANDE 
STATIONS IN THE NETWORK» SINCE ALL ARE ATTACHED IMMEUTATELY. 


boe7? CANDE = BUFFER CHAOS TRAF @& 0323073 


THe TRAPS IN CANDLE TO DETECT ERRURS IN TANK@BUFFER PROTOCOL HAVE 


- : seks : PAGE 44 
UO277 CANUVE ° BUFFER CHAOS TRAP @ U3"232/3 


ssans shiek « eases Beene lesen’ sevens a 
BEEN MUDIFTED?: INSTEAD UF DTVIDING "CHAUS" OK MGUTCHA® BY ZERO, 
They PRGUUCE A MEMORY DUMP CHY BCANDESBUF CHAOS®). THE DUMP 1S NOT 
FATAL TO THe MCP. pul CANUE WILL BE VERMINATED FOLLUWING THt DUMP, 
PLEASE FORWARD BOTH MEMURY QOUMP AND FRUGRKAM QUMPS TO TI0+ LARGE 
SYSTEMS PLANT» WITH AN FIR«e (THESE TRAPS ARE STILL CONTROLLED RY 
THE CUMPILE@TIME § UPTIUONS PARANOID AND FEDANTIC,.) 


BOSRE ~EANUE-T SkseeiNG: <iuesocye 

MENCEPURTH, HY DEFAULT» ALL TASKS RUN HY CANDE ARE RUN IN SUBSPACE 
LF SWAPPER JS RUNNINGe COMPILERS AND SYST&EM UTILITY ROUTINES ARE 
RUN WITH SUBSPACES = 1 CSWAPREENTRANT)» SO THE D1 STACK IS IN 
NORMAL MEMORY AND THE D2 STACK TS IN A SUBSPACE, USER PROGRAMS ARE 
RUN WITH SURSPACFS = 2 (SWAPSTANDARD)! D1 ANL D2 STACKS (CODE AND 
DAlAJ ARE BOTH IN THE SUBSPACE IF THE COLE FILE TS IN A USERCODE 
LIBRARY$ IF ThE CODE FILE IS IN SYSTEMDIRECTORY THEN THE COVE IS 
REENTRANT AND DATA IS SWAPPEN. THE EXECUTIUN PARI UF A CUMPILE® 
ANU*GU "RUN® COMMAND HAS SUBSPACES = 3 (SWAPALL)§ COVE AND NATA ARE 
BOTH IN SUBSPACE. 


A NEW SECONDARY CONTRUL STATEMENT (MODIFIER) MAY BE USED TO 
UVERRIDE THE DEFAULT SETTINGS.» THE SYNTAX AND SEMANTICS ARE! 


SUBSPACES = U DO NOT USE SUBSPACE 

SUBSPACES = 1 DATA IN SUBSPACE 

SUBSPACES & 2 DATA IN SUBSPACE» CODE ALSU IF USER PROGRAM 
SUBSPACES «& 3 DATA AND CUNE IN SUBSPACE 


(THE EQUAL SIGN IS UPTIUNAL.) 
EXAMPLES! 


CUMPILE$ C SUBSPACES = ¥ (CUMPILE WATHUUT SWAPPING) 
E *SYSTEM/UTILITYS SUBSPACES = 1 [SWAP DATA, NOT CUDE] 


NUTE TRAT SUBSPACE SETTING FOR EXECUTIUN MAY NOT BE SPECIFIED AT 
CUMPILE TIME CWITH EITHER CUMPILE GR KUN)» 


of PAG 
v0283 CANDE * EXTENU "BRUTAL™ & "PELANTIC™ = (4893873 ae 


udge?  CANDE 7 EXTEND wemUTAcy & TPEVANTICS = oucuge73 

THiS CHANGE CAUSES WAITANUGU TU Be CALLEU LACH TIME A GEITBLK IS 
UONE IN ORDER TO INSURE GLOBAL VARIABLES ARE "BRUTALIZED"™ WHENEVER 
A BLUGK [IS GOTTEN AND THE BRUTAL OPTION 1S Stte IT THEN BRUTALIZES 
VARIABLES BY CALLING AN INSTALLATIUN JNTRINSIC THAT WILL SET ALL 
PERTINENT GLOBALS TU UNINITIALIZED VAKIABLES. THIS CHANGE ALSO 
CAUSES [hE READONLY HIT TO BE SET IN THE DIRECT ARRAYS INTO WHICH 
TANK SUFFERS ARE REAU DEFENDING UPON THE VALUE UF THE READONLY 
PARAMETER JIN GETHLKe THIS ACTION IS TAKEN WHEN THE PELVANTIC UPTION 
4S StT» TO INSURE THAT WHEN INFORMATIUN 1S CHANGED» AN UPDATED CUPY 
UF TRE BUFFER WILL BE KEWRITTEN UN DISKe 


NEW FEATURES AND DUCUMENTATIUN CHANGES PAGE. “06 


COBOL 


VO224 COBOL © DGLLAK CAKO PKACESSING © Liezoe7e 
IHiS ChANGE MAKES CHANGES AND CURRECTLUNS TU THE FPRUCESSING OF § 
CARD UPTIONS, 


The OPTION NOLINKA HAS BEEN DE“IMFLEMENTEU SINCE THERE ARE NO LONGER 
ANY COMPILATIUN FUNCTIONS WHICH DEPEND UN ITS SETTING. SPECIFYING 
NOLINK IN A $ CARD WILL NOW FRONUCE A WARNING MESSAGE, 


VULLAK CAKDS MAY NOW APPEAK IN ANY COMPILER ANPUTs ANY INPUT IMAGE 
CWLTH OK wITHUUT A SEQUENCE NUMBER) WHICH 15 BLANK IN COLUMN SEVEN 
ANU HAS A § SYMBUL IN CULUMN EIGHT WILL BE RECUGNIZED AS A VALID 
VOLLAK CONTROL CARD (CSETTING AND RESEITING UPTIONS AS SPECIFIED) 
ANU WILL BE WRITTEN TU UUTPUT "SAVE" UR PNEWTAPE® FILES. PRIOR TO 
IMPLEMENTATIUN UF THIS CHANGE, UGLLAK CARDS WOULL NOT BE PASSED 
UNIQ GOMPILER OUTPUT AND WOULD NOT BE RELIABLY PROCESSED WHEN THEY 
APPEARED IN CUMPILER LIBRARY FILES (VIA THE "FRUM"™ OR MCUPY®), 
INFw) IMAGES WITH A §$ SYMBOL IN COLUMN SEVEN ARE FUNCTIONALLY 
EQUIVALENT JQ INPUT IMAGES WHICH HAVE Tht $ SYMBUL IN COLUMN EIGHT 
CAND ARE BLANK IN CULUMN SEVEN) EXCEPT THAT THE LATTER WILL BE 
WRATTEN TO QuIiPUT "SAVE" AND/UK “"NEWTAPE™ FILES. AN INPUT IMAGE 
WHACH HAS THE $ SYMBOL JIN BOTH CULUMNS SEVEN AND EIGHT WILL 
INITIALIZE ALL UPTIUNS AND SET THE UPTIUN "$8". SINCE THE $ SYMBOL 
WHICH FLAGGED THIS CARD AS A & CONTROL CARD IS IN CULUMN SEVEN» IT 
WILL NUT BE WRITTEN TO UUTPUT FILES. A S$*CULUMN EIGHT IMAGE WHICH 
SPECIFIES VOID» VOIDTs» SAVE UR FRUM WILL CAUSE A WARNING MESSAGF TO 
FRINT AND NO FART Ut THE IMAGE WILL BF WRITTEN TO ANY CUMPILER 
UUTPUT FILE. 


A WEW OPTION» “"LIBDULLARK"»s HAS BEEN IMPLEMENTED GN WHOSE SETTING 
THE RECOGNITIUN OF $ CUNTROL CARDS FROM A LIBRARY CWIIH THE "FROM 
UR COPY") 1S BASEDs WHEN THE OPTIUN IS SET» LIBRARY $ CARDS ARE 
REGOGNIZED AND PRUCESSEU. WHEN THE OPTIUN IS RESET» &$ CARDS FROM A 


VWO224 CubuUL = DULLAK CARL PRUCESSING © 1120792 BEBE Ai 


RIGRARY AWE TREATED AS COMMENTS. IF LIBDOLLAR APPEARS ON A 8 CARD 
BRUUGHT IN FRUM A LIHRARY,s JHE UPTIUN IS IGNOREL AND A WARNING 
MESSAGE IS PRINTED. THAS UPTIUN IS StI AUTUMATICALLY BY THE 
COMPILER. GULLAR CAKU INITIALIZATION ALSU CAUSES I] TU BE SET. IF 
THES OPTION HAS NEVER BEEN EXPLICITLY "RESET™ A MPORM WILL LEAVE 
THe UPTIUN SET. 


A FATAL SYNTAX ERROK WILL BE FRUOUCEU IF A *#ROMM OFTION APPEARS 
WETHIN THE IMAGES BRUUGHT IN AS THE RESULT OF a "S$ FROM" OR A 
"CUPY", 


A PROBLEM WHICH wOULD CAUSE INPUT IMAGES TU BE MISSING FROM THE 
PASS TWO LISTING HAS BEEN CUKRRECTED, 


A PHUBLEM WHICH CAUSED PASS 1W0 TO TERMINATE WITH AN "tk OF NO LABEL" 
IS CORRECTED, 


AN ERRKUNEUUS WARNING MESSAGE WHICH PRINTEU UNLY WHEN TRE LAST IMAGE 
FRUM A LIBRARY WAS A & CARU HAS BEEN RKEMUVEDs 


THE LETTER "S*® NUW PRINTS AN THE HIGHT SILE OF THE LISTING FOR 
IMAGES whICh COME FROM SAVED INPUT AS A RESULT OF A "S$ FROM®, 


meses GUBOE «SNE R AUIWIBUTES 7S 02-0573 

THIS CHANGE ADUS SEVEN N&W ATTRIBUTES TU THE L1ST QF ALLOWAHLE 
ATTRIBUTES, THE FILE ATTRIBUTFS ADDED ARE FLEXIBLE» CURRENTBLUCK, 
GARRIAGECUNTHOL, AND TIMFLIMIT, THE TASK AITKIBUTES ARE MAXCARUS» 
MAXLINES, AND VJOBNUMBER. FUR UETAILS ut THe USt OF THESE 
ATTRIBUTES REFER TO THE MCF UR INPUT*UUTFUT SUBSYSTEM MANUALS. 


D0229 CUBNL © <fPATA*®NAME> IS <MNEMONIL> = O2"19473 


THE CONSTRUCT 


SPECTAL*NAMES, 
<DATA*NAME> ITS <MNEMONIG>, 


PAGE 48 
D0229 COBOL = <DATA*NAME> IS <MNEMONIC> © G2°19973 


WILL RESULT IN SYNTAX ERROR #04 PAGE 3°6 OF THE COBUL MANUAL 15 IN 
ERROK IN SHOWING THIS AS VALID SYNTAX. LOCUMENTATION WILL BE 
REVISED. 


vO24a7 COBOL = "CALL SYSTEM™ VERB = 02°19%73 


THis CHANGE REMUVES THE RESTRICTION THAT THE DATA*NAME IN THE CALL 
SYSTEM VERB MUST BE A RECORD WHOSE USAGE IS DISPLAY. DISPLAY#1 


KECORD AREAS AKE NOW ACCEPTABLE. 


u0e4a9 CUBCL = SHURT BLOCK USF RUUTINE © 01°15°73 


A USt PROCEDURE UVEFINED AS 
"USE AFTER RECURD SIZE ERROR UN <FILE*NAME>® 


WILK BE EXECUTED FOR EACH RECORD OF A BLUCK WHICH IS LESS THAN THE 
SPECIFIED BLOCK SIZE. A FATAL SYNTAX ERKRUR WILL PRINT IF THIS USE 
PRUCEDURE 1S SPECIFIED FUR A FILE WITH VARIABLE LENGTH RECURDS OR 
BLUCKS OR FGR A FILE ASSIGNED TO A ODEVICE OTHER THAN TAPE. 
VOLUMENTATION IS ALSU ADDED TQ THE COMPILER. 
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DATACOM 


voi? MCP=ULATACM © DCSYSTEMTABLES INTRINSIC = 02°19°73 

Tht DOSYSTEMTaBLES INTRINSIC ENABLES AN ALGOL UR DCALGUL PROGRAM TO 
UBTAIN INFORMATION ABUUT THE CURRENT UATACOM ENVIKONMENT. IT IS 
PRUVIUVED FOR UdSt BY THE SYSTEM/DCSTATUS PRUGRKAMs AND IS THEREFORE 
SUBYECT 10 FUTURE MUDIFICATIUN. 


UCSYSTEMTABLES 1S A REAL®VALUED INTRINSIC. THE CALLING SYNTAX IS? 
DCSYSTEMTABLES(<UPTIUN>»<ROW>) 


<UPTION> s% 32 ARITHMETIC EXPRESSIUN> 
<KUW> St2<ARKAY ROW> 


EXAMPLES 
T t#® OCSYSTEMTABLES (3, ALI» *))3 


SEMANTICS!S 


Le THE INFORMATION SELECTED BY <QPTIUN> 1S COPIEU INTO <kOW>. 


é@e <kROW> I6 ALWAYS RESIZFD TU CUNTAIN THE REQUESTED 
INFORMATIONs ANU THE PREVIUGUS CONTENTS OF <RUW> IS LUST. 


Jo <OPTION> SELECTS THE INFORMATION AS FULLOWS? 


O = UCC TABLES 
3s DUF TABLES 
2 2 BCC STATION TABLF 
= GENERAL INFORMATIONS 


* 


Ae <RUW> COJ = BIT MAS OF INITIALIZED UCPeS CT, 
Eee IF <RUW> (0).03%1)3 = 1 THEN DUP #3 HAS 
BEEN INITIALIZED). 


Be <RUW>f1) TU «<kOW>(3) = UC FILE PREFIX, 


v0171 


Se 


Oe 


fe 


Be 


MCP@UATACM = DCSYSTEMTABLES INTRINSIC @& v2=1997 3 AGF a0 


TERKMINATEU BY A PERIOD. 
C. <RUW>(4) = BIT MASK UF LCFKeS ON@|LINE, 


DO. <RUW>(5) 2& 8TT MASK OF DCP@S CONFIGURED IN 
NOL. 


4 = NIF STATIUN RECURL.s 


WITH THE EXCEFTION OF <GPTION> 356 DATACUM MUST BE 
RUNNING WHEN THIS INTRINSIC IS INVOKED CIeEos AT LEAST 
ONE OCP INITIALIZED). 


IF THE INTRINSIC IS PROPERLY CALLED AND THE REQUESTED 
INFORMATION IS AVAILABLE» THE VALUE RETURNED BY THE 
INTRINSIC CT) CONTAINS THE FOLLUWING! 


Ae 7.639820) 2 SIZE (WOKDS) OF INFORMATION #& 
NFW SiZE UF <kRNW>,. 


Be Tol19820) = MFMORY ADDRESS OF THE KEQUESTED 
MCP TAHLE> LF APPLICABLE» OTHERWISE ZERO. 


IF THE INFURMATILON WAS NOT SUCCESSFULLY USTAINEDs THE 
VALUE RETURNED BY THE INTRINSIC INDICATES ThE REASON AS 
FCLLCWS? 


#1 = DATACUM NOT RUNNING ANU 
OPTION> NEW 3, 
=2 = <UPTION> LSS 0 OR <OFTION> GIR 4, 
“3 = <INVALID LON TN <RUW> LO] (<OPTION> = 4), 
=4 = INVALID NAME IN <ROW> 
<UPTION> = 4), 
“5 2 UNKNOWN STATION (<UPTIUN> © 4), 


THE UPTIGN SINSTALLATICN MUST Be SET WHEN CUMPILING THE 
USER PRUGRAM. 

WHEN CALLED. WITH <UPTION> = 4» THE STATION VESIRED MUST 
BE SPECIFIED EITHER BY PLACING THE STATIUN NAME IN FRCUIC 
STARTING IN <RUW>LOJ», UR BY SPECIFYING THE STATION LSN IN 
<ROW>LO)., 
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u01/76 MCP#DATACM © SUBTRALT STATIUN EKRUR = 10°30#72 

FOR MOVE STATIUN DCWRITE» AN ATTEMPT TO SUBTKACLT A STATION WHICH IS 
NOT ATTACHED WILL NOW RETURN DCWRITE ERRUR #1216 ON PAGE 41 UF THE 
UCALGUL LANGUAGE MANUAL» FRROR #121 SHOULL BE ADDED aS FOLLOWS? 


121) AN ATTEMPT TO PERFORM MnVE STATIUN WAS MADE 
WHERE THE SUURCE STATIUN 1S NOT ATTACHED TO THE 
REQUESTING MCSo 


V0199 MCP@DATACM © UPDATE LINE UCWRITE FUNCTION = 05°30°72 
HHE UPDATE LINE ATTRIBUTES OCWRITE (CTYFE2131) ALLUWS AN MCS TO 
MOUIFY THE ADAPTOR TYPE AND/UR MUDEM FUR A PARTICULAR LINE. 


KE UUIRED! 

Je MESSAGE PARAMETER (MINIMUM SIZE © 9 WORDS) 

2e MSGCO).{4788] © 131, 

3e¢ MSG077.023824) = DL ©> LINE ADURESS 

4e MSGlA16(2287) = 0 => LEAVE ADAPTER CLASS UNCHANGED 
# 0 => NEW ADAPTER CLASS 

Se MSG(8).(02381) = 0 2> NEW ADAPTER REQUIRES mUDEM 
= 18> NEW ALAPTUR ULRECT CONNECT 

Go MSGCB).C7t6) © O => LEAVE MOVEM UNCHANGED 
= MUDINX @> INDEX INTU MESSAGE FOR NEW MODEM 

NAME « 


Seco recze 

THE LINE UPDATE IS PERFURMED FOR THE SPECIFIED LING» AND IF ANY 
STATIUNS EXIST ON THE LINE» THE LINE IS LEFT REAUY. IF MSG(H).6238 
428 1, NO MODEM NAME MAY BF SPECIFIED. IF MOUVINX # 0» THE NEW 
MUUEM NAME MUST BE IN EBCDIC AND BE TERMINATED BY A PERIOD. ONLY 
VALID» NUN@DEFAULT MODEM NAMES AS SPECIFIED IN NOL ARE ALLOWED, 


v0199 MCP*DATACM = UPDATE LINE UCWRITE FUNCTION © ossa0cree 


aaah aid 
ALLUCATE(MSG.11)3 
MSGCLO) t2 O R 1310478813 
MSGC7) t= oO & 1£2381) a& DE (92815]3 
MSG08) s= 0 & 2023246) & YC7TIAI3 
REPLACE PUINTERCMSGL¥9) 56) BY "NEWMUDEM. 3 
HRESULT §2 DEWRITE (MSG)3 


vOz200 MCP*DATAGM © MUVE STATITUN@“DCWRITE FUNCTION = 05=30°72 

THE MUVE/ZADD/SUBTRACT STATION DCWRITECTYPE = 130) HAS BEEN EXTENDED 
TU ALLOW NEW LINE ATTRIHUTES TO BE SPECIFIED IN THE MOVE AND ADD 
FUNCTIONS.» THE NEW FORMAL OF THE MESSAGE FARAMETER IS AS FOLLOWS? 


eeceeeees 
de MESSAGE PARAMETER (MINIMUM LENGTH = 8 WORDS) 
2e MSGCu).(4738] = 130 
Ze MSG0U1.£39%816) 2 VARIANT FIELD? 
oC2481) 2 0 32> LEAVE STATION NOT READY AFTER MOVE 
1 => LEAVE STATION REAUY AFTER MOVE 
062531) = 0 s> OU NOT UPDATE STATION ATTRIBUTES 
1 => UPDATE STATIUN ATTRIBUTES 
AS SPECIFIEU, 


4« MSG(01.023324) # CURRENT LSN OR DLS 
$+ MSGC7210023824) = 0 2> SUBTRACT STATION 
DL => DFSTINATION LINE ADDRESS 


Cc 
t 
—_ 
t= 
Cc 
tz 
> 
Co 
Co 


NFORMATIUN CREQUIRED Te MSGCO)sC25! 


6«¢ MSGCA} = NEW LINE ATTRIBUTES! 
(23%8) = NEW ADAPTER TYPE NUMBER 
C1538) = TEKMINX # INDEX TNTU MSG FUR NEW TERMINAL NAME 
C788] = MODEMINX * INDES INTO MSG FOR NEW MODEM NAME 


Du200 MCP*DATACM © MUVE STATION@OCWRITE FUNCTION © 05=300)3E a3 


7o MSGCTERMINX] = NEW TERMINAL NAME FUR STATION 
Be MSGLIMQUVEMINX] = NEW MODEM NAME FOR STATIUN 


THE NEW SEMANTICS FUR UPDATING LINE ATTRIBUTES IS AS FULLOWS! 


IF MSGL0).02581) = 1 AND MSGE72e£23824) # O THEN THE LINE 
ATTRIBUTES SPECIFIEU IN MSGCB)~ WILL be APPLIEL TU THE NEW 
LINE. IF A PARTICULAR ATTRIBUTE FIELU IN MSGL8) IS ZERO». THE 
CURRENT LINE ATTRIBUTE WILL NUT BE MOUIFIEDs. NAME ATTRIBUTES 
MUST BE SPECIFIED IN EBCDIC AND BE TERMINATED BY A PERIOD. 
THEY MUST CORRESPOND TO VALIN NON@DEFAULT NAMES IN NDL,y 


EXAMPLE 3 


ALLOCATE (MSGo11)3 
MSG(O] t= LSN & 130 (4736) & 3[£39116]3 
MSGC7) t# O &@ 1 C2321) & DLE22815)3 
MSGC8) t2 0 &@ 8912336] % NEW ADAPTER TYPE 

& 9f15t6)3 & NEW TERMINAL NAME INDEX 
REPLACE POINTER (MSGL9)08) BY "TERMINAL 29 0"3 
RESULT t2 OCwRITEC MSG); 


uogs2  MCPrUATACM 2 DCP FAULT RESULT > o2zi9e73 
WHEN A DCP FAULT UCCURS»s ALL CURRENTLY KUNNING MCS S WHICH HAVE 
ANITIALIZED THEIR PRIMARY QUFUF WILL RECEIVE A DeP FAULT RESULT 
MESSAGE (TYPE = 20) IN THEIR PRIMARY QUEUE*s THIS FAULT RESULT IS 
ALSU PLACED IN THE SYSTEM/SUMLUG. A LCP FAULT ALWAYS RESULTS IN 
TERMINATION OF THE CORRESPONDING DCC STACK. THIS NUTIFICATION CAN 
UNLY OCCUR IF THE DCP "STOP*UN@=FAULT® SWITCH IS IN THE NEUTRAL 
(RUN) POSITION. THE FURMAT OF THE DCP FAULT RESULT IS AS FULLOWS! 


he MSGCO)e(4738) = 20 (MSG CLASS © DCP FAULT) 

(2381) = 1 : 

6€2287) # DCP NUMBER OF FAILING OCF 

6015316) = 0 
2e M9G02)0(39816) © 72 (SIZE OF TEXT PORTION OF MESSAGE ) 
de MSG047824) = TIME OF MESSAGE (1/60 UF A SECUND) 


00233 MCP@®DATACM © DCP FAULT RESULT : O2=19973 PAGE 54 


4o mSG(6) = TAGS OF WURDS IN MSGL6)8>M56(17) 
C4784) = TAG UF MSOL61 
a 
* 
r) 
0f9294) = TAG UF MSGE17) 
Se MSGld]ef47124] = AASACSAI REGISTERS 
0€23824)] = DoYoX REGISTERS 


6s MOG[9] 2 SM WORD 7 
Toe MSGC10) 2 SM WORD 6 
Be MSGLild z SM WORD 5 
Yo MSGC12) = SM WORD 4 
10. M5613) = SM WORD 3 
Al. MSG(14) 2 SM WORD 2 
l2e MSG(15) = SM WORD 1 


6039216) @ INSTRUCTION ADDRESS REGISGER 
0€4716) & FAULT INDEX 

d3e MSG(16) = SM WORD O 
0(23824) @ MA REGISTER CONTENTS 

146 MSUG(17) 2 wORD REGISTER CONTENTS 


THe VALUES OF THE FAULT INDEX CODE ANU THEIR RESPECTIVE MEANINGS 
AWE! 


2 INITIALIZE FRUM SCAN*UUT 

2 LM DATA INVALID ADDRESS 

= LM NAIA PARITY ERROR 

= ADAPTER CLUSTER ERROR 

MM PRUTECTED WRITE DENTED 

= MM DATA INVALIU ADDRESS 

= MM OAIA PARITY ERROR 

= MM DATA ACCESS ERROR 

SB LM INSTRUCTIUN TAG ERROR 

9 = LM INSTRUCTIUN INVALID ANDRESS 
10 3 LM INSTRUCTION PARITY ERROR 
11 7 UNEXPECTED TIMEUUT 

12 2 MM INSTRUCTION TAG ERROR 


awn oO NF SF ww Ne SF CS 
a 


D0233.  HCP=DATACM * UCP FAULT RESULT = o2e19=73 PAGE 55 


13 = MM INSTRUCTION INVALID ADDRESS 
14 = MM INSTRUCTION PARITY ERROR 

15 = MM INSTRUCTION FETCH ERROR 

16 ® RECURSIVE FAULT 


bu234 MCP@DATACM = DATACOM ERROR LUGGING E O2e19°72 

DATACOM ERRUR LOGGING HAS BFEN PROVIDED AS A DCALGOL FUNCTION 
CALLED "DCERKORLUGGER"s BY SELECTIVELY INVUKING THIS INTRINSIC) AN 
MCS CAN HAVE INFORMATION ABOUT HIS DATACUM ENVIRONMENT ENTERED INTO 
THe SYSTEM LUG. 


THE UVATACOM SuBSYSTEM (DCC) ALSO UTILIZES THIS INTRINSIC TO 
UNCONUITIONALLY RECORD MCS INITIALIZATIONS AND OCP FAULTS, 


THE SYNTAX FOR CALLING OCERRORLOGGER IS! 


OCERRURLOGGER(C <MSG>,SIZE>) 
<MSG> tte AN ARRAY» ARRAY ROW OK MESSAGEs 
<SIZE> t82 REAL EXPRESSION« 


THE <MSG> 1S ENTEREO INTO THE SYSTEM LOG FOR THE NUMBER OF WORDS 
SI4E>) SPECIFIEDs, PREFIXED BY A 6°WORD HEADER AS DESCRIBED IN THE 
WORK FLOW MANAGEMENT DOCUMENT. THE MAJOb TYPE ASSIGNED TO THIS 
ENTRY IS FIVE» ANO THE MINOR TYPE IS SET TO FOUR, 


THE FORMAT OF THESE RECORDS IS ALSU OEFINED IN THE WORK FLOW 
MANAGEMENT DUCUMENT. 


IF THE GIVEN LOG RECURD COULD NOT BE ENTERED IN THE SYSTBM LOG, 
UCERRORLOGGER WILL RETURN A NEGATIVE RESULT INDICATING THE SPECIFIC 
REASON THE REQUEST WAS DENIFD. THE VALUES RETURNED BY 
DCERRURLOGGER AND THEIR RESPECTIVE MEANINGS ARL1 


0 LOG ENTRY MODE SUCCESSFULLY 
"1 <SIZE> PARAMETER WAS GREATER THAN THE TRUE SIZt OF «<MSG> 
"2 CALLER IS NOT A VALID MCS OR HAS NUT INITIALIZED HIS 

PRIMARY QUEUE. 


PAG 6 
00234 MCP*DATACM @ DATACUM ERROR LUGGING = Q02°19¢72  ® 


#3 A DISK ERR(R OCCURRED ATTEMPTING TO LOG THE ENTRYs 
EXAMPLE? . 


KS ® DCERRORLOGGER CAL eI)» 6)3 


Bee eee ee oene ouceeceu cece nee: vo Sesesens 

WHEN INSERTING A MESSAGE TO THE HEAU OF A QUEUE» THE FOLLOWING 
PRUBLEM CAN OCCURS IF THE MESSAGE TO BE INSERTED IS LARGE ENUUGH TO 
INVOKE DISK TANKING» THE LAST MESSAGE CURRENTLY IN THE MEMORYS 
RESIDENT PORTION UF HE QUEUE WILL BE TANKED TU DISK BEHIND THE 
LAST MESSAGE IN THE QUEUE. IF THE MEMUKY*RESIDENT PORTION UF THE 
WUEUE IS EMPTY» THEN ThE MESSAGE TO BE INSERTED WILL BE TANKED 
BEMINU THE LASI MESSAGF IN THE QGUEUEs KEGARDLESS UF WHETHER IT 
SHUULU GO 10 THE HEAD OF THE QUFUE UR NOT. 


bO¢85 MCP*DATACM = UPDATE LINE ATTRIBUTES RESULT = 0491173 


MESSAGE FORMATS 
MSGLOJe(478A] # 19 
MSG(020(39840) # AS GRIGINALLY PRESENTED TO UCWRITE 
MSG(1]60478A) & Oa> UPDATE LINE SUCCESSFULLY COMPLETED 

# Om> INTERPRETED AS THE UCWRITE ERROR VALUES 


PRAGMATICS: 


AN MCS PERFORMING AN UPDATE LINE ATTRIBUTES UCWRITE (TYPE#131) WILL 
RECEIVE A TYPE 19 RESULT MESSAGE AT THE COMPLETION UF THE REQUEST. 


L02&6 MCP@DATACM © INITIALIZE PRIMARY QUEVE = Q4°11273 


WHEN AN MCS PERFORMS AN INIIIALIZE PRIMARY GQUEVE DCWRITE (TYPE#0)> 
ANFORMATION IS RETURNED TO THE MCS VIA THE MESSAGE PARAMETER. IF 


U0286 MCPSDATACM = INITIALIZE PRIMARY QUEUE = Ugeaze75°SE 5? 


THe PASSED MESSAGE IS TOU SMALL TO CONTAIN THE INFURMATION® A NEW 
MESSAGE AREA WILL BE ALLOCATED 1N PLACE OF THE URIGINAL ARFAe THE 
FUKMAT OF THE MESSAGE IS AS FOLLOWS! 


MSGCOJ = UNCHANGED 

MOG01) s NUMBER UF THIS MCS 

MSGi2) = MAXIMUM VALID LSwn 

MOG03) THRU MSGL£5] = UNCHANGED 

MSG66] = PREFIX OF THE CURRENT DATACOM FILE 
[nw BBCOIC» TERMINATFD BY A PLRIOUs 


NEW FEATURES AND NOCUMENTATIUN CHANGES 


v0254 DM6701) 


PURPOSE! 


COMPILE INFORMATIONS 


RUN INFORMATION? 


ACTIONS! 


= DPMUPDATE 


PAGE 


DATA MANAGEMENT 


= 02°19"73 


OMUPUATE 1S A ONE®TIME ONLY PROGRAM THAT 
CONVERTS EXISTING I1¢3 DATABASES TO 1144 
DATABASES, It WAS WRITTEN SO THAT THE 
USER WOULD NUT HAVE TO REGENERATE HIS 
DATA*BASES OR RECUMPILE HIS PROGRAMS THAT 
USE THOSE DATA*BASESs 


THE FILE TAPE SHOULD BE LABEL EQUATED TO 
“SYMBOL/DMUPDATE™ AND A $ MERGE CARD 
INCLUDED TN THE CAKD DbCK, 


THE OBJECT JOB WILL LOUK FOR A CARD FILE 
WHOSE NAME IS CARDs THE CARN FORMAT IS 
FREEFORKM AS FOLLUWSS 

DATA@BASE © <DATA*BASE NAME>} 
THE STEPS FOR RUNNING ARES 


le LOAD THE DATA*BASE TO BE UPLATED. 

2s RUN OMUPDATE. 

3e IF NO ERRORS ARE NOTED,» 
THEN COMMENCE TO USE THE UPDATFO 
DATA™BASE OR HE MAY DUMP IT TO A 
TAPE FOR LATER USE» THE USER SHOULD 
BE CAREFUL ANU NUT FURGET TO DUMP 
THE ERRORS FILE AND THE ALTERED 
POVERFLOW" FILE. 


THE USER MAY 


DUMPLDATE GENERATES A FILE CALLED! 

OM/<DATA@BASE NAME>/ERRORS 
ALSO GENERATES AN SDL 

FOR THE UM/<DATA*BASE 
THEN CHANGES THE 


DICTIONARY 
NAME>/ 
NAME OF THE 


AND 
RECOKD 
OVERFLUW 
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OVERTLUW FILE TO AN AVAILABLE STRUCTURE 
NUMBER. THE NEW STRUCTURE NUMBER UF 
OVERFLUW FILE FS THEN INSERTED INTO RECORD 
ZERC OF THE SOL DIRECTURY, 


NUTE3 NUT ALL DATA=@BAStES HAVE A DM/<DATA*BASE 
NAME >/UVERFLUW FILE. OMUPDATE MUST STILL 
Be KUN TU GENERATE THE DM/<DATA@BASE 
NAME>/ERRNRS Flee A MESSALE wILlt BE 
INSERTED INTO THE LOG THAT THe CHANGE OM/ 
<DATA*®HASF NAME> /UVERFLOW TO DM/<DATA@BASE 
NAMF>/<NUMBER> DID NOT UCCUR,. TRIS SHUULD 
BE. IGNORED. 


bU255 UM6700 |= UM @ REQUEST HANDLER Ext CUTIUN © 01°19"73 
REWUEST HANULERS FOR A GIVEN DATABASE WERE PREVIOUSLY PROCFSSED AS 
SYSTEM/DM6700. THEY ARE NUW PROCESSED AS DM <UDATABASE*NAMED, 


VUZE DOM6700 = DM © SOL IMPROVEMENTS = 02719973 


PURPUSL? 

SYMBUL/SOLS REPLACES SYMBUL/SDL/STRUCTURE ANU SYMBOL/SUL/INITIALIZE > 
THLS WAS DONE TO IMPROVE STABILITY» DULUMENTATION AND 
MAINTAINABILITY. 


Se ene ce be COR MaOn! 

SYSTEM/SDL/STRUCTURE IS COMPILEU BY LABEL EWUATING THE TAPE FILE 
FOK UCALGOL TO "SYMBOL/SDLS" AND INCLUDING A & SET STRUCTURE AFTER 
THe $ MERGE CARD IN THE CARD DECK. SYSTEM/SUL/INITIALIZE TS 
CUMPILED IN A SIMILAR MANNER AS ABUVE WITH THE EXCEPTION OF THE § 
SE] STRUCTURE CARD WHICH SHUULD BE REFLACEU BY A & SET INITIALIZE« 


RUN INFORMATIONS 


PAGE 


D0256 OM6700 © UM @ SOL IMPRUVEMENTS © 02819%73 


60 


DAME AS PREVIOUS SDLS EXCEPT THAT BUTH THE SDLS NUW USE A STRICT 
INTERPRETATIUN UF SYNTAX AND SPFLLING FRUM THE DOCUMENTATION. 


PIT FALLS! 


THE PROBLEMS THAT WERE NUTED BY PEOPLE CUNVERTING FRUM "OLD® SOL 
"NEW" SOL WERE? 


Le 


ae 


THE STRUCTURES FOR SYSTEM/SUL/INITIALIZE WERKE UP BY ONE 
BECAUSE OF STRUCTURE ONE NOW BEING RESERVED FOR THE 
OVERFLOW FILE. SYSTEM/SOL/INITIALIZE VECKS WHICH 
REFERENCE STRUCTURE NUMBERS MAY 6k WRKONGe SINCE THE 
OVERFLOW FILE WILL HECUME STRUCTURE #1. IF KEGENERATING 
UNDER 2e4- ALL STRUCTURE NUMBERS USED IN THE 263 SDL/ 
INITIALIZE DECK (CI1.E.» SET 12 BLUCKFACTOR = 103) WILL BE 
OFF bY ONE SINCE STRUCTURE #1 %IS NOW USED FOR ONE 
OVERFLOW FILE. 


THE SPELLING AND SIZE UF KEY WURKDS WAS NOT ENFORCEDL IN 
THE "OULD" SDL. HOWEVER» "NEW" SUL OOES MATCH THE 
DOCUMENTATION MURE CLOSELY (koeWes PREVIOUSLY SETSONG 
COULD HAVE BEEN SUBSTITUTED FOR SET)» 


NEW FEATURES? 


THERE 
VEF AULT 
SYNTAX! 


DEFA 


<DEF 


TO 


HAVE BEEN TWU NEW FEATURES ADDED TO THE SUL Se THEY ARE 
AND $ OPTIONS. DEFAULT IS HANDLED WITH THE FOLLOWING 


ULT <DEFAULT OPTIUN>3 


AULT UPTIUN>38® POPULATION #<NUMBER><VEF AULT UPTION> 
/VEVICE2<DISK><DEF AULT UPTION> 
/DUPLICATED = <STATE> <UEFAULI UPTION> 
/<EMPTY> 


<OISK>%$3= D1SK 


<STA 


/OISKPACK 
TE>st2 ON/OFF 


G 
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<NUMBER>t82 CPOSITIVE INTEGER] 


VEFAULTS ALLOW THE USER TU CHANGE THE NUKMAL DEFAULTS TO SOMETHING 
MOKE AGREEABLE TO HIMe THE POPULATION DEFAULT ALLUWS THE USER TO 
CHANGE THE VALUE OF ODL PUPULATION * * FRUM 20000 TU SUMETHING MORE 
IN LINE WITH THE SIZE OF HIS DATA@BASt. THIS PUPULATION IS ONLY 
USeD TO INITIALLY ALLUCATE SPACE AND DOES NOT IMPOSE A LIMIT TO 
POPULATION, 


THe WEVICE neFAuULT WILL ALLOW THE USER TU SPECIFY WHERE ALL HIS 
UATASHASE FILES WILL RESIDE. ANY DEVICE SPECIFIED ON INDEX AND 
FILE STATEMENTS IN STRUCTURE AS WELL AS ANY SET STATEMFNTS FOR 
INITIALIZE wiki QVERRIDE THE DEFAULT CUNDITIUN. THE VALUE OF 
DEFAULT DEVICE IS USED BY SYSTEM/SUL/STRUCTURE TO VETERMINE WHERE 
TO PLACE THE UM/<DATA*HASE NAMED>/SOL FILE. IT WILL KESIOF ON THE 
DEVICE SPECIFIED IN THE DEVICE MEFAULT SYNTAXs DUM/<US*NAME>/ERRORS 
WiLL ALSU BE PLACED WHEREVER THE OEFAULT DEVICE SPECIFIES, 


THe ONLY FILE NOT AFFECTED BY THIS STATEMENT IS DM/<UB=NAME>/DDL. 
AT MUST ALWAYS RESIVE UN HEAL@PFRTRACK, 


THe DUPLICATED DEFAULT WILL ALLOW THE UStR TO SPECIFY THAT ALL DATA 
MAWAGEMENT FILES (EXCEPT DM/<DATA*BASE*NAME>/DDL) ARE DUPLICATED. 
AGAIN THIS MAY BE OUVERRIUDEN FOR SPECIFIC FILES IN THE SET 
STATEMENT FUR SYSTEM/SUL/INITIALIZE. THE ERROR FItLt WILL BE 
VUPLICATED IF DUPLICATED = UN ANU WILL BE A BYSTEM DUPLICATFU FILE. 
ALL OTHER QUPLICATED FILES ARE DUNE THRUUGH DmM670U,. THE INITIAL 
VALUES OF THE DEFAULT ARES 


POPULATION #® 10000 
DEVICE = DISK 
DUPLICATED = LUFF 


EXAMPLES 


QRUN SYSTEM/SDL/STRUCTURE ° 
2VATA CARD 
DEFAULT 
PUPULATIUN = 65000 
DEVICE = DISKFACK 
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DUPLICATED # ONS 
( 
( OTHER STRUCTURE CARDS 
¢ 
PEND 


THe EFFECT OF THIS WOULD BE3 


FUR ALL SETS WITH PUPULATIUN &*,» 65000 WOULUL BE USEU TO 
CALCULATE SUCH THINGS AS AREASIZE» BLUCKINGs ETC, 


ALL FALFS, UM/UB001/= WOULD RESIDE UN DISKPACK EXCEPT OM/ 
DBOOI/DOL. 


ALL FILFS» UM/UB001/72 WUULN BE DUPLICATED EXCEPT DM/DB001/D0L. 


THe OOLLAR OPTIONS ARE SIMILAR TO THUSE UF THE B6700 COMPILERS3 
THEY ARES 


DEBUG THIS SETS THE TRACE BUOLEAN WHICH WILL EVOKE THE 
DEBUGGING ROUTINE UF SDLS.» 


List SETS THE CLISTR BOOLEAN. IF LISTB LS FALSE» NO 
LISTING WILL BE GENERATED CEXCEPT FOR ERRORS). IF 
TRUE» THEN NORMAL LISTINGS WILL BE GENERATED, 


PUP POP POPS A 4u“BIT STACK WITH A FALSE, 

RESET RESET PUSHES A 48@KI1T STACK WITH A FALSEs 

StT SET PUSHES A 4oeBIT STACK WITH A TRUES 

SINGLE iF OTHE ULIST)0 6OOPTION 61S) StT» THEN THE GENERATED 


LISTING wILkL Ge SINGLE SPACED. 
CNUTES LIS) iS THE UNLY & UPTION WITH AN INITIAL VALUE OF TRUE.) 


CHANGES TO SYSTEM/SUL/STRUCTURE 8 

STRUCTURE NUMBER UNE IS NOW KESERVED FUR THE "UVERFLOW" FILES 
THEREFUREs USER STRUCTURES NOW START AT 1WO5 THIS COULD CAUSE A 
PRUBLEM IN SYSTEM/SUL/INITIALIZF IF THE SET STATEMENT IS USEDS TeEos 
ULU CARD VECKS WITh Tht SET STATEMENT IN THEM MUST BE REMADE. 


U0256 M6700 = DM = SDL IMPROVEMENTS © Q2e1y=73 PAGE 63 
FILES AND UVERFLOW FILES FOR LISTS AKE NUW BLUCKED To A SEGMENT 
BOUNDARY UP TO A MAXIMUM UF {£000 WUKDSs THIS WAS DONE IN AN 
ATTEMPT To GET MORE EFFICAENT USE UF DISK WHEN THE LATA*BASE FILES 
ARE STRUCTURED. THIS MAY BF NVERRIDUEN IN SYSTEM/SDL/INITIALIZE. 


CHANGES TO INITIALIZES 


THe FOLLOWING SYNTAX HAS BEEN ANVELU TO THE SYNTAX FOR SET: 


DUPLICATED = UN/UFF 
DEVICE = <DISK> 
<DISK>%s2 DISK/DISKPACK 


UUPLICATED ALLUWS THE USER TO UVERKIUE THE DErAULT VALUE OF 
VUPLICATEL (SEE DEFAULT IN NEW FEATUKES)« 


AUUIT SYNTAX SHOULD HE ALTERED AS FULLUWS: 
<AUDIT MEDIUM>$s2 DEVICE = <KIND>/<EMFTY> 
<KINO>882 DISK/DISKPACK/TAPE7/TAPEO/PEIAPE 


STRUCTURE NUMBER UNE IS NOW RESERVEU FUR THE OVERFLOW FILE, 
THEREFORE» ULD SYSTEM/SUL/INITIALIZE DECKS WILL HAVE TO BEF CHANGED 
TO REFLECT THIS MODIFICATIUN. 


CORRECTIUNS?: 


THE FOLLOWING RECORDED ERKRURKS HAVE BEEN CURRECTEDS 


he RERUNNING SYSTEM/SUL/INITIALIZE wILl NO LUNGEK INCREASE 
THE INDEX@SEQUENTIAL TABLES WITHUUT BUUND. 


2e CHANGES IN BLOCK FACTOR FUR KANUUM INDEX WILL NOW BE 
REFLECTED IN THE FILE FUR THAT INLEX, 


3e INDEXSIZE PARAMETERS OF THE INDEX STATEMENT FRUM SYSTEM/ 
SUL/STRUCTURE WOULD PREVIOUSL UNLY Be USED IF ALL WERE 
NUN@ZEROUs UNDER THE ®NFW" SUL THOSE WHOSE VALUE IS NON= 
ZERO WILL bE USEDS AND IF THE PARAMETER IS ZERO, THEN 
SYSTEM DEFAULT ACTION WILL OCCUR tUR THAT PARAMETER, 
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4e PREVIUUSLY IN SYSTEM/SULZINITIALIZE A USER CUULD SPECIFY 
AN ONLY OPFIUN Clete» LIMITSUNLY Uk AUDITONLY, FIC.) 
ALUNG WITH A SEF STATEMENT AND THE DATA*BASE WOULD NOT BE 
INITTALIZED OR REINITIALIZEDU. UNDER THE "NEW" SOL A 
WARNING MESSAGE WILL BE ISSUED AND THE DATE*@bASE WILL BE 
INITIALIZED Uk KEINITIALIZED. 


Se TF DISJOINT ASSUCTATED SETS WITH URDERINGS HAD CONTAINED 
A SET wiTh MURE THAN 45 TTEMS, THE UFESET TO THE ORDERING 
ITEM wOURU HE WRONGe THIS HAS BEEN CURRECTEDs 


W0257 DOM6700 © OM © DDL EXECUTION = U2919"73 


WHALE RUNNING SYSTEM/DUL» "UDL <DATABASE@=NAME>* WILL HE DISPLAYED, 


VO258 UM6700 = OM @ SDL EXECUTION = v2e19°73 

WHILE SYSTEM/SUL/STRUCTURE IS RUNNING» A DISPLAY OF THE FORM “STR 
<DATABASE“NAME>" WILL APPEAR ON THE CONSULE. THIS 15 REPLENISHED 
AS EACH STRUCTURE JS CUMPILEU. 


SYSTEM/SDL/INITIALIZE WILL DISPLAY A MESSALE "INIT<DATABASE*NAMED", 


V0259 OM6700 * DM = DATA COMPACTIUN © O2"19973 

THe DATA CUMPACTIUN FACILITY: OF DM6/00 HAS BEEN IMPROVED AND 
THUROUGHLY TESTED. IN APPRUPRIATE SITUATIONS» IT WILL YIELD A 
SUBSTANTIAL KEDUCTION IN DISK SPACE FOk A RELATIVELY SMALL OVERHEAD. 


U0¢60 OM67U0 °° GLOBAL FOR EMREDDED SETS © 02819873 


LF GLUBAL «[S SPECIFIED FUR AN EMBEDDED SET AND 19 NOT RESIDENT» 
THEN THE FILE IN WHICH IT RESIDFS (LIST UVERFLOW FILE) WILL NUT AND 


00260 UM6700 °° GLUBAL FUR EMBEDDEU SETS = 02°19"73 ne ee 


CANNOT BE BLUCKEDs 


vO261 OM6700 = RANDOM STRUCTURE = 02°192/73 


AF a KEY OF RETRIEVAL IS DECLARFUL TO BE KANDUM AT SDL TIME, IT MUST 
HAVE BEEN REQUIRED IN DDL AND MUST NOT HAVE BEEN IN A SET WITH 
POPYULATIONan, 


UOZ62 OM6700 ™ REQUIRED ITEMS © 02°19°73 


A PREVIOUS LIMITATION WHEREBY ONLY 47 ITEMS COULL EXPLICITLY BE 
REWUTRED HAS BEEN REMUVED. 


UVO263 DM6700 ™ MUDIFY ORDER NF OJ SET WITh 1A = 02°19973 


MOUIFY ORDERING OF A DISJOINT SET WITH AN EMBEDDED ASSOCIATED SET. 


EXAMPLE 
$1 SET $2 SET 
POP POP2#100 
URDERFD ON A (X ALPHAC6)3 
CA ALPHAC2)3 $3 SET 
B ON(C6)3 PUP2=4 
3 ORDERED UN A 


CCONTAINS NUMBERS OF S12) 


PREVIOUSLY ANY ATTEMPT TU MODIFY THE KEY OF ORDERING FOR ANY MEMBER 
UF A UISJNINT SETs Sl» THAT HAND AN EMBEDDED StT» S3» CONTAINING S1 
ANU ORDERED) ON THE SAME KEY AS S21 WOURD RESULI IN A STATUS UF 101. 
THIS RESTRICTION HAS BEEN EASED SOMEWHAT. THE KEY UF ORDERING FOR 
A MEMBER OF A DISJUINT SET» Sil» MAY BE MODIFIED PROVIDED THAT THIS 
MEMBER IS NOT ALSO A MEMBER fit ANY EMBEDDED ASSOCLATED SET CIeFs 
293), NOR POINTEO AT VIA LINK IN ANY SETo 


bO264 OM6700 = CURRENT AFTER MODIFY © STORE @ og=19=7 GAGE ee 


VO264 OM6700 = CURRENT AFTER MODIFY * STORE = 02°19°73 


HHE STORE AFTER A MODIFY wiLL NOT CHANGE THE CURRENT CILE. GURRENT 
KECQORD NUMBER)» THIS IS a CHANGE FROM T1636 


THERE ARE TWO INSTANCES IN WHICH THIS CHANGE WILL PROVIDE DIFFERENT 
RESULTS FROM THE PREVIOUS SCHEME OF CHANGING THE CURRENT AFTER THE 
STURt AFTER A MODIFY. 


fe MODIFYING THE KEY OF ORDERING 


THIS CHANGES THE LOGICAL POSITION UF A MEMBER IN A SET BUT 
THE CURRENT PUINTER REMAINS WHERE IT WAS AFTER THE MODIFY. 


EXAMPLE 


$1 SET 
POPa* 
URDERED ON A 
CA 
8 


3 


ASSUME A ® 5 


MODIFY NEXT OF Sle CASSUME CURRENT IS MEMBER #21 
MOVE 10 TU Ao AND Az5) 
STORE Si. 


(CURRENT REMAINS #21 EVEN 
THOUGH THE MEMBER WITH A®i0 MAY 
BE MEMBER #1201) 


2¢ MODIFYING A RANDOM KEY OF RETRIEVAL 


MODIFYING A RANDOM SET OF RETRIEVAL ALSO CHANGES THE 
LOGICAL POSITION OF MEMBER IN A SET BUT NOW THE CURRENT 
PCINTER WILL NOT BE CHANGFD AFTER THE STUREs 


V0268 ON6700 = SUL * INDEX PARAMETERS = O3eu7"73 PASE 67 


VO268 OM6700 * SDL © INDEX FAKAMETERS © 03°079°73 


THE FOLLOWING SYNTAX [S ADDED TU THE SYNTAX FUR INDEX IN BYSTEM/ 
SUL/STRUCTURE TO BE USED AS AN ALTERNATIVE SYNTAX FOR INDEXSIZE. 
VHey ARE AS FoLLUWs: 


tOn INDEX@*SEQUENTIAL! 
CUARSE # <NUMBER> 


THIS IS USED BY THE USER TU SET THE DESTRED COhkSE 
TABLE SIZE CNUMRER OF ENTRIES PER COARSE TABLE) 


FINE = <NUMBER> 


THIS IS USED bY THE USER TO SET THE UVESTIREO FINE 
TABLE SIZE CNUMBER MF ENTRIES PER FINE TABLE), 


INITIAL = <NUMBER> 


THIS £S USED BY THF USER TO SET THE DESIRED INITIAL 
LOAD FACTURe IT MUST BE LESS THAN OR EQUAL TO FINE» 
SO THIS MUST BE SET AFTER FINE IS SET. 


FOR INDEX*RANDOM 


NUMBER 
COR NUMOF TABLES 
(OK) NUMBEROFTABLES ® <NUMBER> 


THIS 3S USED BY THE UStkR TU SET UP THE DESIRED 
NUMBER OF BASIC TABLES. 


TABLESTIZE = <NUMBER> 


THIS 18 USED TO SET UP THE DESIRED NUMBER OF ENTRIES 
IN THE BASIC TABLE. 


FUR RANOOMS 


BLOCK = <NUMBER> 
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fHi8 IS USED BY THE USER TU GHANGE THE NUMBER OF 
BLOCKS IN THE BASTC AREA. 


tUR TAG: 


TAGS 
(UR) BLOCK © <NUMBER> 


THIS IS USED BY THE USER TO CHANGE THE NUMBER OF 
TAGS PERK HECURD.s 


HOR BIT: 
BLUCK # <NUMBER> 


THIS ITS USED BY THE USER TU CHANGE THE NUMBER OF BIT 
VECTORS PER RECORD. 


ALL THE ABOVE ARE TYPE DEPENDENT» ERGO» TYPE MUST BE SET BEFURE ANY 
UF THE ABOVE ARE USED. 


v0269 DM6700 = OM © ODL WARNING *@ 02°19873 


THE FULLUWING DVL IS ILLEGAL BUT NOT CURRENTLY SYNTAXEU AS SUCH. 


Si SET Sé2 SFT 
POP = 100000 POP ® 4000 
OROERED ON A ORDERED ON A DUPLICATES ALLOWED 
( CCONTAINS MEMBERS OF S193 


3 


1F A OA OR TA SET IS URDERED ON A KEY THAT ITS ALSO A RETRIEVAL OR 
URVERING KEY OF A DJ SET AND THE KEY DUES NUT ALLOW DUPLICATES THEN 
THe OA OR IA KEY MAY NOT ALLUW DUPLICATES. 


A NEW 
PEWFOR 
MASTER 


Je 


a) 
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uMovQo = OM = NEW STATUS 2 Ugrisz73 

STATUS HAS BEEN ADDED. STATUS = 6 INUICATES AN ATTEMPT TO 
M AN OPERATION ON A SUBSUMBED MEMBER THAT HAS NO CURRENT 
6 
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DM670U = LESION UF RECUVERY FUR UMe7v0 = aroae73h”E 7 
THE WORD ®RECUVERY"™ IN THE TITLE Lo USED TU ENCOMPASS THE 
ENTIRE SET UF PRUCEDURES FUR DATA BASE RECUVERY. IT IS 
ALSO USED IN THIS UNCUMENT WITH A VERY SFECIFIC MEANING 
INTENDED. SEVERAL OTHER WURDS ARE ALSO USED wITH 
SPECIFIC MEANINGS IN MINDe IN AN ATTEMPT TU AVOID 
SEMANTIC CUNFUSIUNs THESE WURUS ARE HEREBY DEFINED? 

AULIT WRITING A TRAIL OF CHANGES TO THE DATA 
BASE ON A SECONVARY STORAGE MEDIUM. 


RECOVERY RESTURATION OF INTEGRITY TO THE FILES 
OF THE LATA BASE SG THAT THEY ARE NOT 
LEFT IN A STATE SUCK THAT ANY 
OPERATION UN THEM IS PARTIALLY 
CUMPLETE. RECUVERY MAY BE NEEDED 
AFTER A HALT/LUAD OR It THE DATA BASE 
MONITOR IS US@EDe 


RESTART GETTING THE APPLICATIUN PROGRAMS 
RUNNING AGAIN AT THE PUINT TO WHICH 
THF DATA BASE HAS BEEN RECOVERED. 


HECUNSTRUCTION USING THE AUOIT TRATL AND A BACKUP 
DUMP TQ RECONSTRUCT A PORTION UF THE 


DATA BASE. 


USING A GUOL COPY OF A DUPLICATED DATA 
BASE FILE TU RESTURE THE BAD COPY. 


RESTORATIUN 


AUDIT» RECUVERYs RESTART» RECUNSTRUCTION AND RESTORATION 
ARE FRUVILED FOR DM67005—. THESt FEATURES ARE DESCRIBED IN 
THE FOLLOWING SECTIONS. 


AUDIT 

AUDIT IS BY DATA BASE AND NUT BY PROGRAM» THE DECISION 
UF WHETHER TO AUDIT OR NOT AND WHAT THE PARAMFTERS OF THE 
AUUIT ARE TU BE ARE SPECIFIED IN THE SOL/INITIALIZE RUN, 
THE AUULT STATEMENT SYNTAX IS AS FULLOWS. 


SYNTAX 


DU264 
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<AUDIT STATEMENT> 822 <AUDIT TYPE><ON@LIST>37/ 
<AUDIT TYPE>SOPF@LIST>3 
<AUDIT TYPE> t= AUDIT / AUDITONLY 
<OFFeLIST> 832 OFF / NUNE 
CUN@LIST> ¢8= <QOPTIONAL PARAMETER KLIST>/ 
ON <OPTIUONAL PARAMETER LIST> 
<OPTIONAL PARAMETER LIST> t8@ <EMPTY>/<PARAMETERD/ 
<PARAMETER LIST><OPTIUNAL COMMA><PARAMETER> 

<QPTIONAL COMMA> 882 , / <EMPTY> 
<PAKAMETER> &22 <NEVICE SPECIFICATIUN> / 

<FILFSIZE SPECIFICATION? / 

<AUDIT SERIAL SPEGIFICATIUN>D / 

<IMAGES SPECIFICATIUN>D / 

<CONTROL CYCLES SPECIFICATIUN> / 

<PACKNAME SPECIFICATIONS 
<DEVICE SPECIFICATION> 882 DEVICE ® <AUDIT MEDIUM> 
<PACK NAME SPECIFICATION> t3 PACKNAME © <PACK NAME> 
<AUDIT MEDIUM> tt@ DISK / DISKFACK / TAPE? / 

TAPES / PETAPE 
<FILESIZE SPECIFICATIQON> tis AREAS @ <INTEGER> / 
AKEASIZE = <INTEGERD/ 
FILESIZE = <INTEGER> 

<AUDIT SERIAL SPECIFICATION> 8 SERIAL =® <INTEGER> 
<IMAGES SPECIFICATION> 882 BEFUREIMAGES 
<CONTROL CYCLES SPECIFICATIJON> tte CUNTROLCYCLES = 


<INTEGER> 
EXAMPLES 
AUDIT? 
AUDIT VEVICESUISKs AREAS®100» AREASIZE®1000» SERIAL#1» 
CONTROLCYCLES2#103 
AUDIT OFF3 ; 


AUDITONLY DEVICESDISKPACK»s BEFUKEIMAGES» FALESIZE #100038 


SEMANTICS 
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IF THE <AUDIT TYPE> IS AUDITUNLY RATHER THAN AUDIT» THE 
AUD(T MAY BE TURNED ON OR OFF WITHOUT CAUSING 
INITIALIZATION OF THE DATA BASE FILES, 


THE DEFAULT VALUES GF THE AULIT PARAMETERS ARE SHOWN IN 
THE SECOND EXAMPLE = THE FIRST TWO EXAMPLES ARE 
EQUIVALENT. 


THE AUOIT TRAIL MAY BE WRITTEN TO ANY OF THE DEVICES 
LISTED. AND RECOVERY MAY Be ACCUMPLISHELD FROM ANY OF 
THESE DEVICES. 

AS FAR AS THE MCP FILE SYSTEM 1S CONCERNED» THE AUOIT 
TRAIL FILE 1S ONE RECORD PER BLUCK WITH A RECORD SIZE OF 
30 WORDS» THIS CANNOT CURRENTLY BE VARIED. THE DATA 
MANAGEMENET SYSTEM NUES ITS UWN BLUCKING AND UNBLOCKING 
OF THe AUDIT FILEs FOR PURPUSES OF COMPUTING THE AUDIT 
FILE SIZE» A RELORD SIZE OF 30 WORDS IS USEDs IF THE 
FILESIZE FORM 1S USED. AREAS AND AREASIZE ARE COMPUTED SO 
THAT AREAS#AREASIZEZFILESIZE AND AREASIZE®10*AREAS« 


WHEN AN AULIT FILE BECOMES Full, IT IS LOCKED. AND A NEW 
FILE WITH THE NEXT HIGHER SERIA NUMBER IS CREATED AND 
USED AUTOMATICALLY. THE AUDIT FILE NAMES ARES 


<DATA BASE NAME>/AUDITNNNN 
WHERE NNNN IS THE FOUR DECIMAL DIGIT AUDIT SERIAL NUMBER, 


"9999" IS FOLLOWED BY "OUV00". THE AUDIT SERIAL PARAMETER 
SPECIFIES WHAT THE STARTING AULIT SERIAL NUMBER WILL BE. 


AFTER IMAGES OF ALTERED DATA AND STRUCTURE INFORMATION 
ARE ALWAYS WRITTEN TO THE AUDIT TRAIL» AT PRESENT» ONLY 
THE AFTER IMAGES ARE USED FUR KECOVEKY AND RECONSTRUCTION. 
AS AN OPTIUNs BEFORE IMAGES MAY ALSO BE INCLUDED IN THE 
AUL[T TRAIL. THESE WILL BE IGNORED BY RECOVERY AND 
RECONSTRUCTION» BUT THE USER MIGHT BE ABLE TU USE THEM TO 
BACK UP HIS DATA BASEs BACKING UP UF THE DATA BASE IS 
NOT SUPPURTED BY UM6700 AT THIS TIME. THE POINT IN TIME 


G 
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AT WHICH THE MONITOR TS FIRED UP IS A CLEAN POINT FOR THE 
DATA BASE AND WILL BE MARKED ON THE AUDIT TRAIL. 


THE CONTROE CYCLES SPECIFICATION MAY BE USED TO CONTROL 
AN IMPORTANT TRADE@OFF IN THE UPERATION OF THE AUDIT. 
THE OATA BASE MONITOR PERIODICALLY EXAMINES THE STATE OF 
THE REQUEST HANDLERS AND THE QUEUE OF REQUESTS. ON EVERY 
NTH SCAN (CAS SPECIFIED BY CONTROLCYCLES ® <INTEGER>) AN 
AUDIT CONTROL RECORD IS WRITTEN TU THE AUDIT TRAIL. THIS 
INVOLVES FORCING A WRITE ON ALL BUFFERS WHICH CAN BE 
WRITTEN TU UISK AT THAT TIMEs THE PURPUSE OF THE AUDIT 
CUNTRUL RECORD IS TU LIMIT RECOVERY EFFURT == aT LEAST 
ONE AUDIT CUNTROL RECORD MUST BE READ BY THE RECOVERY 
PRUGRAM.s. THUSs THE MORE FREQUENTLY AUDIT CONTROL RECORDS 
ARE WRITTEN» ThE SMALLER THE RECOVERY EFFORT. BUT THE 
GREATER THE UVERHEAD DURING NURMAL UPERATION OF THE DATA 
BASEe 


THE TIME PERIOD BETWEEN SCANS IS SPECIFIED BY A NEW 
MONTTOR LIMITs [HE SYNTAX IS 


CYCLETIME & <INTEGER>? 


WHERE THE UNITS OF <INTEGER> ARE SECONDS. THE CURRENT 
UFFAULT CYCLE TIME 1S THREE SECONDS» (MONITOR LIMITS ARE 
SPECIFIED IN THE LIMITS OR LAMITSONLY STATEMENT IN SOLS 
INITIALIZE.) 


‘ PRAGMATICS 
THE AUDIT TRAIL IS NOT PARTITIONED. (PARTITIONING COULD 
SPEED RECONSTRUCTION.) NOR IS IT POSSIBLE TO AUDIT ONLY 
SELECTED PARTS OF THE DATA BASE. FURE RETRIEVAL REQUESTS 
ARE NOT AUDITED == ONLY CHANGES TO THE DATA BASE. 


THE END GF FILE POINTER OF THE AUDIT TRAIL MUST NOT BE 
LOSTe THEREFORE» THE AUDIT TRAIL 1S PROTECTED. FOR DISK 
OR OISK PACK THIS MEANS THAT THE DISK IS SMEARED WITH A 
SPECIAL PATTERN ANDO THEN OVERWRITTEN+ THE END UF FILE 
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RECORD CAN THUS HE FOUND BY PERFURMING A BINARY SEARCH, 
FOR TAPE PROTECTION MEANS THAT WHILE THE MUP IS COMING UP 
AFTER A HALT/LUAUs IT WRITES TAPE MARKS TO THE AUDIT TAPE 


THE AUDIT TRAIL IS READ AND WHITTEN WITH DIRECT I/Us AS 
MUCH BLOCKING IS OONE AS POSSIBLE» BUT THE LOGIC OF THE 
AUDIT REQUIRES A WRITE TO BE COMPLETED AT CERTAIN POINTS 
BEFORE FURTHER AUDITING CAN PRUCEEUs. ONE OF THESE POINTS 
IS AN EXECULION OF END*TRANSACTION BY A COBOL PRUGRAM, 
THUS» VEKY SMALL TRANSACTIONS (E.Gese ONE MODIFY/STORE 
PALR) WILL RESULT IN SMALL BLOCKS UN ThE AUNIT TRAIL. 
TRANSACTIUNS CANNUT BE ARBITRARILY LARGE» HOWEVER®S 
BECAUSE ONLY A FIXED NUMBER OF BUFFERS ARE AVAILABLEs 
ONCE THESE ARE ALL LOCKED, A SYSTEM OVERLOAD WILL OCCUR, 
IT IS THE USERS RESPUNSIBILITY TO DETERMINE BOTH A 
HFASUNABLE TRANSACTION SIZE AND THE MAXIMUM NUMBER OF 
BUFFERS AVAILABLE 10 THE MONITOR.» 


UNLIKE QIHER DATA BASE FILES» THE PACKNAME OF THE AUDIT 
FILE MAY BE ODIFFERFNT THAN THE DATA BASE NAME. IN 
GENERAL» WHEN AUDITING TO PACKe ONE SHOULD AUDIT TO NAMED 
PACK CAS UPPOSED Tn SYSTEM PACK) WHERE THE NAME IS 


OIFFERENT THAN THE DATA BASE NAME> THIS DECREASES THE 


PRUBABILITY THAT DATA BASES FILES AND 'HE AUDIT TRAIL 
WILL HUTH BE LOST. 


AUDIT ARCHIVE 


THE DATE» TIME. SERTAL NUMBER AND PACKNAME UF EACH AUDIT 
FILE ARE WRITTEN IN AN AUDIT ARCHIVE WHEN THE AUDIT FILE 
IS CREATED. THE AUDIT ARCHIVE IS A PERMANENT OTSK FILE 
NAMED 


UM/<DATA BASF NAME>/AUDITARCHIVEs 


SYSTEM/DMPRINTIT MAY BE USED 10 PRINT THE AUDIT ARCHIVE 
IN FORMATTED OR UNFORMATTED FORM. 


WHEN AN AUDIT FILE IS NEEDED AS AN INPUT FILE BY SYSTEMS 
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DMRECOVER»s ETC.» WIND IS SET TU ZERO AND FACKNAMF IS SET 
FROM THE AUDIT ARCHIVE. SETTING KIND #* 0 WILL CAUSE THE 
SYSTEM TO SEARCH TAPES» DISK ANL UISKPACK FOR THE FILE, 
AND "DUP FILE” WILL RESULT IF MURE THAN ONt COPY IS FOUND 
SETTING KIND = 0 HAS SUME NON"UBVIUUS CONSEQUENCES. 


IF MORE THAN ONE AUDIT FILE ITS MUUNTED ON TAPE ORIVES 
WHICH ARE UN@*LINEs A *UUP FILE" WILL ALWAYS RESULT ** FOR 
TAPES. THE DUP FILF CUNDITION BASED ONLY ON THE FIRST 
IDENTIFIER. TO ALLEVIATE THIS» DMHECOVERs, ETC, DISPLAYS 
THE NAME OF THE AUDTT FILE THAT 1T NtEUS BEFORE OPENING 
THE FILE. 


KINO = GU wilt CAUSE ONLY UNE FAMILY OF PACKS TU BE 
SEARCHED CAS DETERMINED BY PACKNAME). THUS» IF THE USER 
MOVES AN AUDIT FILE TU A FAMILY UF PACKS WHUSE NAME IS 
NOT EQUAL TO THE PACKNAME IN ThE AUDIT ARCHIVE ENTRY. THE 
USER MUST CHANGE THE PACKNAME IN THE AUDIT AKCHIVE ENTRY. 
OTHERWISE, I) WILL NOT BE FOUND BY UMHECOVER® ETC. 
CNUTES SINCE IT 15 POSSIbLE TO AUDIT AND RECOVER FROM 
TAPE» DISKe UR FPKACKs AUDIT FILES NEED NOT NORMALLY HE 
MOVED.) 


ssc: pba e shen eeeneence 
CERTAIN ACCEPT MESSAGES MAY GE INPUT TL THE DATA BASE 
MONITOR FROM THE SPG AT ANY TINE. WHEN THE MONITOR MAKES 
GNE OF ITS PERLOVIC SCANS» II WILL MAKE THE APPRUPRIATE 
RESPONSE IF AN ACCEPT MESSAGE WAS PREVIOUSLY INPUT FOR IT 
CUNDER 1104 PROGRAMS CAN TEST FOR THE PRESENCE OF ACCEPT 
MESSAGES WITHOUT BEING SUSPENDED.) THE MIX NUMBER OF THE 
MOWITOK (NUT THE JOR NUMBER UK THE MIX NUMBER OF ONE OF 
THE REQUEST HANDLERS) IS ENTERED» FOLLOWED BY "AX", 
FOLLUWED (WITH NU INTERVENING BLANKS) BY ONE OF THE 

FOLLOWING MESSAGES. 


AS wilt CAUSE THE MONITOR TU DISPLAY THE CURRENT 
AUDIT SERIAL NUMBER. 


Gu 


Bu 
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AK WILL CAUSE THE MONITOR TO OLSPLAY THE CURRENT 
AUDIT RECORD NUMBERS Fok DiSK GR DISKPACKS 
THIS IS THE SEGMENT NUMBERs AND FUR TAPE THIS 
IS THt BLOCK NUMBER. 


CA WILL CAUSE THE MUNITOR TU CLUSE THE CURRENT 
AUDIT FILE AND UPEN A NEW UNEs 


ALL UTHER MESSAGES wILL CAUSE THE MONITOR TO DISPLAY 
"INVALID REQUEST", 


RECOVERY 

RECOVERY OF A DATA BASE IS ACCOMPLISHED BY RUNNING 
SYSTEM/DMRECOVERs THIS PROCEDURE 45 CALLEL AUTOMATICALLY 
BY THE DATA BASE MONTTUR WHEN NECESSARY. IT MAY ALSO BE 
RUN BY THE USER. ITS PARAMETER IS A STRING CONSISTING OF 
THe NAME OF THE SOL FILE CORK THE FIRST COPYs IF 
DUPLICATED) FULLOWED RY A PERIUD. OMRECUVER RECOVERS THE 
DATA BASE» WRITES ALL NECESSARY RESTART FILES Tu DISK» 
AND INDICATES ITS SUCCESSFUL CUMPLETIONs IT ALSO KEEPS A 
LOG OF ANY I/0 ERRORS 1T ENCOUNTERSs 

PRAGMAIICS 

THE MONITOR TURNS A BIT ON CTHE DATA BASE IN USE BIT) IN 
RECORD ZERO OF THE SUL FILE BEFORE 17 STARTS PROCESSING 
REQUESTS TO THE DATA BASEe IT TURNS THIS BIT UFF WHEN IT 
GUES TU SUCCESSFUL ENJe THUS» WhEN THE MONITOR CUMES UP 
AND NOTICES THAT THIS BIT IS ALREADY ON» IT KNOWS THAT 
EITHER A HALT/LOAD QCCURRED UR IT WAS DS*ED. IN EITHER 
CASE» RECOVERY IS NECESSARY» SU IT KUNS DMRECOVERs IT 
THEN HANGS IN A "NO FILE™ FOR FILE DM/<DATA BASE NAME>/ 
RECOVERED. UMRECUVER RECOVERS ThE DATA BASE» WRITES THE 
RESTART FILES TO DISK». AND LOGS ANY 170) ERRURS IT 
ENCOUNTERS IN A DUPLICATED FILE NAMED OM/<DATA BASE 
NAME>/"RECOVERRS#1" AND DM/<DATA BASE NAMEA/"RECOVERKS#2%, 
SOME I/O ERRURS RESULT IN UNSUCCESSFUL RECOVERY. IF 
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RECOVERY 1S SUCCESSFUL» IT TURNS GFF ThE DATA BASF IN USE 
BIT AND CREATES AN EMPTY FILE UM/<DATA BASE NAME>/ 
RECOVERED. THE CREATION GF THAT FILE CAUSES THE MONITOR 
TO RESUME PROCESSING. IF THe MONITOR IS DS*FO WHILE 
RECOVERY 1S RUNNINGs A CRITICAL BLUCK EXIT WILL RESULT IN 
RECOVERY. IF RECUVERY IS DS*tb, THERE WILL BE NO EFFECT 
ON THE MONITOR Cletss THE MONITOR WILL STILL HANG IN THE 
MNO FILE UNTIL RECOVERY IS SUCCESSFUL), IF RECOVERY IS 
DS*ED. IT MAY Be POSSIBLE TU CORRECT THE SITUATION ANDO 
RUN IT AGAIN SUCCESSFULLY. 


NO MORE THAN ONE COPY OF DMRECUVER WILL RUN AT A TIME. 
THIS SITUATION IS MeTRCTED BY TESTING THE POPULATION 
ATTRIBUTE UN THE Spt FILE. It IT IS GREATER THAN ONEs 
RECOVERY GOES TO Efde THUS» IF TwO COPIES OF RECOVERY 
SOMEHOW START UP AT THE SAME TIME» BOTH MAY GO GO EUJs 
IN THIS CASEs 17 WILL HAVE TO BE KUN AGAINe ALONE. 


THE RECOVERY ERRORS FILE HAS THREE WORD RECORDS WITH THE 
FOLLOWING FORMAT. 


epee 
47320 STRUCTURE NUMBER OF THe FILE IN ERROR 
27828 KECORD TN ERROR 
ara 
16803 TYPE OF FILE IN ERRORE 
0 = MATA FILE (Ok INDEX TABLE) 
1° SOL FILE 
2 © AUDIT TRAIL 
3 = UNUSED 
4 = RECOVERY ERRORS FILE ITSELF 
13201 READ OR WRITE ERROR 
0 = READ 
1 = WRITE 
12:01 COPY NUMBER IN ERROR (CO FIRST» 1 SECUND) 


11212 BLOCKFACTOR GF FILE IN ERROR 


00284 
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WORD 2 
4/7iao [-U RESULT BESERIPTOR © THE HARDWARE 
RESULT DESCRIPTUR JF THE AUDIT TRAILS 
OTHERWISE» THE SOFTWARE RESULT 
DESCRIPTOR 
STRATEGY 


RECOVERY REAUS THE AUNIT THAIL BACKWARDS FROM THE CURRENT 
END AS FAR AS NECESSARY. 

DATA ecunDs 

RECOROS MAY ONLY BE MODIFIED BY ONk TRANSAGTION AT A TIME. 
RECORDS ARE NUT UNLOCKEO UNTIL AFTER END@TRANSACTION HAS 
BEEN EXECUTED AND AUDITED. RECORDS MAY NUI BE WRITTEN TO 
DISK UNTIL ENO*TRANSACTIUN HAS BEEN EXECUTED AND AUDITED. 
THUS» RFCUVERY ASSUMES THAT NO PARTIAL TRANSACTIONS ARE 
REFLECTED ON THE UDISK. THE JUB GF RECOVERY FOR DATA 
RECORDS IS TO INSURE THAT ALL DISK WRITES FOR COMPLETED 
TRANSACTIONS HAVE UCCURRED bY WRITING ALL SUCH RECORDS 
USING THE AFTER IMAGFS IN THE AUDIT TRAILe IF THE WRITE 
HAD ALREADY UCCURRED» A SECOND WRITE WILL DO NO HARM, 
RECOVERY MUST REMEMBFR ALL THe RECORDS IT HAS WRITTEN SO 
IT WONT REWRITE THEM WITH AN EARLIER VERSIUNS 


STRUCTURE INFURWATION 

TREATING THE LUCKING OF STRUCTURES THE SAME AS THE 
LOCKING UF OUATA RKECURDS WOULD RESULT IN SET LEVEL 
LOCKOUT» SO THIS IS NOT OUNEs INSTEAD» STRUCTURES ARE . 
LOCKED ONLY WHILE REITING CHANGEDe THIS CHANGES THE 
RECOVERY STRATEGY.» STRUCTURES AKE "RECOVERED" WHEN FIRST 
ENCOUNTERED IN THE AUDIT TRaILs. STRUCTURE CHANGES FOR 
THE LAST PARTIALLY CUMPLETED TRANSACTIONS ARE UNDONE AS 
THEY AKE ENCOUNTERED TN THE AULIT TRAILe 


TERMINATIUN 
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THE PURPUSE OF LONTROL RECURDS Is TO LIMIT RECOVERY 
EFFORT. CUNTROL RECORDS AKE WRITIEN PERIUDICALLY SY THE 
MONI TONe AT THIS TIME THE MONITORS BUFFEKS ARE FLUSHED. 
THUSE RECORDS ANU STRUCTUKES TRAT CUULD NUT BE FLUSHED 
BECAUSE THEY WERE LOCKED ARE LISTEL IN THE CONTROL RECORD, 
THE CURRENTLY ACTIVE TRANSACTION I0S ARE ALSO LISTED IN 
THE CONTRUL KECORD. 


AT LEAST UNE CONTROL RECURL MUST BE SEEN BY RECOVERY 
(UNLESS THE MUNITOR@FTRED®UP RECORD 1S ENCUUNTERFD).« 


ENU@*TRANSACTIUN ON AGI CACTUALLY» bOJ IS ThE FIRST OPEN 
OF ThE TRANSACTION) MUST Bt ENCOUNTERED FOR ALL USER 
TRANSACTIONS ACTIVE UURING AND AFTER THE LAST CONTROL 
RECORD (COR SINCE THE MONITOR@FIREDSUP RECORD). THE FIRST 
TIME END@“TRANSACTION 15 SEEN FUR A USER TRANSACTION® A 
RESTART FILE 1S CREATED ON DISK. It NO ENU= TRANSACTION 
IS SEEN» BUJ WILL BE SEENs IT 1S ASSUMED THAT ALL USERS 
EXECUTE END*TRANSACTION PERIUDICALLY. 1F THIS IS NOT 
TRUE» RECOVERY MAY HAVE TO REAL A LARGE PURTION OF THE 
AUDIT TRAIL TU TERMINATEs 


ALL STRUCTURES AND UDATA RELCURLS LISTED IN THE LAST 
CONTROL KECGRU MUST BE ACCUUNTED FOUR. THEY MUST BE 
ENCOUNTERED IN THE AUDIT TRAIL UR MISSING FRUM AN EARLIER 
CONTROL RECORD TU INSURE THAT THEY GET WRITTEN UR WERE 
WRITTEN TU DISK. 


THE END OF FILE POINTERS FOR ALL THE DATA FILES MUST BE 
ESTABLISHED USING THE HIGHEST UPEN INFURMATIUN IN THE SOL 
“STRUCTURE FILE. (THE END UF tILe OF THE SDL FILE IS 
CUNSTANTs AND THE AUGIT TRAIL 1S PROTECTED.) Td 
ESTABLISH THEM, A BLOCK GF ALL ZERUES IS WRITTEN AS THE 
NEXT BLOCK AFTER THE LAST BLUCK CUNTAINING DATA. 


IN DUCTION 
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nezou > LESISN UF RECOVERY LUN Unervo > Yuroac7zu 
TRANSACTIUNS HAVE BEEN INTRUDULED TO PROVIVE CLEAN POINTS 
FOR RESTARTING DATA MANAGEMENT JUBS 6 THE UNDERLYING 
ASDUMPTIUN IS THAT PROGRAMS Akt CYCLIC IN NATURE» AND 
THAT aT THE BEGINNING GF A LOURs ONLY A FEW IMPORTANT 
VARTABLES ARE NECESSARY TU PROVIDE SUFFICIENT INFORMATION 
TO RESTART ThE PROGRAM. THESE VARIABLES WILL TYPICALLY 
BE FILE POSITIUNS,s A RESTARTABLE LATA MANAGEMENT JOB 
wILL BE PASSED TWO PIECES OF INFORMATION UPUN RESTARTS 
(1) TRE FACT THAT IS HAS BEEN RESTARTED AND (2) EXACTLY 
THUSE VARIABLES WHICH THE FRUGRAMMER PAS DNECTOED ARE 
SUFFICIENT TO GET THE PRUGRAM KESTARTEDs THE DETAILS ARE 
DISCUSSED IN WHAT FOLLUWS. 


SeANOAGL UNS 

A TRANSACTION IS A. SEQUENCE UF DATA BASE OPERATIONS 
PERFURMED UN ONE OR MORE DATA MANAGEMENT CUBUL WORKAREAS. 
A TRANSACTIUN HAS AN ID UNIQUE FROM ALL UTHER CURRENTLY 
ACTIVE TRANSACTIONS. THE TRANSACTION ID StRVFS TO LINK 
RECORUS IN THE AULIT TRAIL ANU TU ITUENTIFY THE LOCKER OF 
RECORDS. ALL LATA RECURLS AND INDEX TABLES MODIFIED BY A 
TRANSACTIUN AKE LUCKFD GUT FRUM UTHER TRANSACTIONS UNTIL 
THE TRANSACTIUN LS COMPLETELs THEY ARE ALSG MARKED SU 
THAT THEY CANNOT BE WRITTEN TO DISK UNTIL THe TRANSACTION 
[S COMPLETED. THERE ARE TWO TYPES OF TRANSACTIONS» 
DFFAULT TRANSACIIUNS AND USER SPECIFIEL TRANSACTIONS. 
ANY PARTICULAR CGBUL PRUGRAM USES UNE OR THE OTHER, BuT 
NOT BOTH. 


VELAULT TkaNSACTIONS 

UM6o700 HAS BEEN USING UEFAULT TRANSACTIUNSs CURRENT 
PRUGRAMS MAY BE RUN WITHOUT CHANGEs HOWEVER, TO PROVIDE 
RESTARTABILITY» IT WILL BE NECESSARY TU CHANGE TO USER 
TRANSACTIUNS.» DEFAULT TRANSACTIONS ARE SINGLE NATA BASE 
OPERATIUNS WItH THE EXCEPTIUN OF THE FOLLOWING PAIRS OF 
OPERATIONS (UN THE SAME WOKKAREA) "= MODIFY/STORE, 
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CREATE/STURE» MUDIFY/FREE ANU CREATE/FREE. THESE PAIRS 
OF OPERATIONS ARE CONSICERED SINGLE DEFAULT TRANSACTIONS. 


THE TYPE OF TRANSACTIONS A PRUGKAM 15 USING MAY BE 
DETERMINED BY INSPECTING THe FALE CONTROL PART OF THE 
INPUT*OUTPUT SECTIUNs IF NO FALE SELECTED IS ASSIGNED TO 
DATA*BASE*RESIART» THEN THE PROGRAM IS USING DEFAULT 
TRANSACTIONS IN THIS CASE» THE CUBOL VERBS END= 
TRANSACTION AND ABORT*TRANSACTION WILL GIVE SYNTAX 
ERRORS», AND EACH SFT THE FROGKAM INVUKES WILL BE 
ALLOCATED A UNIQUE TRANSACTION ID WHEN THE SET IS UPENED. 


IF A FILE IS ASSIGNED TU DATA*BASE*RESTARTs» THEN THE 
COJOL PROGRAM IS USING USER SFECIFIED TRANSACTIONS. (CAT 
MOST ONE FILE MAY BE ASSIGNED [0 DATA*BASE*RESTART.) ALL 
SETS INVUKED BY THE PROGRAM AKE GIVEN THE SAME 
TRANSACTION ID WHEN OPENED. ALL UPERATIONS PERFORMED ON 
THE WORKAREAS FOR THESE SETS ARE PART OF THE SAME 
TRANSACTION» UNTIL THE TRANSACTION IS TERMINATED BY 
EXECUTING END*TRANSACTION OR ABURT@TRANSACTION. (THE 
PROGRAM MAY THEN INITIATE ANOTHER TRANSACTIONe) THE 
PRUGRAM IS EXPECTED TO EXECUTE END*® TRANSACTION 
PERTUDICALLY. IF IT DOES NUT» RECUVERY MAY TAKE MUCH 
LONGER THAN NECESSARY (Set SECTIUN 3)5 AND IF THE 
TRANSACTIUN MODIFIES TOO MANY RECURUS» A SYSTEM OVERLOAD 
(STATUS 102) WILL OCCUR ONCE ALL THE BUFFERS ARE LOCKED. 
IT 1S THE PROGRAMMFRS RESPUNSIBILITY TO KEEP THE 
TRANSACTIONS SIZE REASONABLE. 


IF A SET IS PASSED AS A PARAMETER® ALL THE OPERATIONS ON 
IT BY OTHER PROGRAMS OR PROCEDURES ARE CONSIDERED AS PART 
OF THE TRANSACTIUN OF THE PROGRAM WHERE THE SET IS 
LOCALLY INVOKED. THAT IS» 1F A SET IS INVOKED LOCALLY 
CAS OPPOSED TO BEING INVOKED BY REFERENCE) BY A PROGRAM, 
PASSING IT AS A PAKAMFITER DOES NOT CHANGE ITS TRANSACTION 
[D. 
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1, PURPUSE OF THE RESTART FILE 
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THE PURPUSE UF THE RESTART FILE IS 10 HOLD ALL THE 
INFORMATION NECESSARY TO RESTART THE PROGRAM. FILE 
PUSITIUNSs LUOGP COUNTERS, STATE VARIABLES,» DATA 
MANAGEMENT KEYS OF RETRIEVAL» ETC. MAY RESIDE IN THE 
RECORD DESCRIPTION OF THE KESTART FILE, WHEN END®@ 
TRANSACTIUN IS EXECUTED» THE RECORD AREA OF THE RESTART 
FILE CHEREAFTER REFERRED JO AS THE RESTART AREA) IS 
WRITTEN ON THE AUDIT TRAIL (WHETHER THE RESTART FILE IS 
QPeEnN UR NOT). THE DATA MANAGEMENT SYSTEM WILL INSURE 
THAT UNLY COMPLETE TRANSACTIONS ARE PERFORMED ON THE DATA 
BASEs THE INTENT IS THAT THE ENDL UF A TRANSACTION BE A 
CLEAN POINT FUR THE PROGRAM, 


THE RESTART FILE SHOULD NOT NORMALLY BE OPENED OR WRITTEN 
BY THE USER. IT NEED UNLY BE OPENED ANL READ WHEN THE 
PROGRAM IS RESTARTEDse OPENING IT UR WRITING ITs HOWEVER, 
WILL NOT INTERFERE wITH ITS USE BY THE VATA MANAGEMENT 
SYSTEMs 

He2eZe2e END@*TRANSACTION 
THE SYNTAX 188 
ENU*TRANSACTION ON EXCEPTION 

<STATEMFNT> CELSE <STATEMENT>) 


THLS STATEMENT IS ALWAYS EXECUTED SYNCHRONUUSLYs 


THE EXCEPTIONS ARE RETURNED IN TRANSACTION@STATUS CWHICH 
1S A COMP"1 EXPRESSION) AND ARES 


1 SET NOT OPEN. IF NONE UF THE WURKAREAS FOR THE 
TRANSACTIUN ARE CURRENTLY UPEN» THE TRANSACTION 
ID £S NUT ALLOCATED AND END*TRANSACTION WILL 
NOT BE PERFORMED. 


16 GPERATIUNS IN PRUGRESDS.» ONE Uk MORE 
CASYNCHRONOUS) UPERATIONS ON ONE UR MORE OF THE 
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WORKAREAS UF THE TRANSACTIUN ARE STILL IN 
PRUGRESS. END©TRANSACTION WILL NUT BE EXECUTED 
BECAUSE THE PROGRAM [S NUT AT A CLEAN POINT. 


17 QNE OR MORE WORKAREAS OF THt TRANSACTION ARE IN 
THE MOOIFY UR CREATE STATE* END“ THANSACTIUN 
WILL NUT BE FXFCUTED BECAUSE THE PRUGKAM IS NOT 
AT A CLEAN POINT» 


16 ONE OR MORE UF THE DATA BASE MUNITURS INVOLVED 
IN THE TRANSACTION HAVE BEEN US®*ED. 


NEW UPERATIUNS WILL BE INHIBITED UN ANY UF THE WORKAREAS 
INVOLVED IN THE TRANSACTION (CNBW UPERATIONS MIGHT 
OTHERWISE BE INITIATED ITF MORE THAN UNE STACK IS INVOLVED 
IN THE TRANSACTIUN) WHILE END TRANSACTIUN IS BEING 
PERFORMED. 


EOS SUMAN OEr LLNS 

TRANSACTIUNS MAY BE ABORTED wHETHEK AUDIT 1S ON UR OFF. 
THE MONITOR OES AN IMPLICIT ABURT®TRANSACTION WHEN THE ° 
LAST SET INVULVED IN & TRANSALTION IS CLOSEU. THUS» THE 
DATA BASE IS LEFT AT THE END UF THe LAST COMPLETE 
TRANSACTIUN FUR THAT JUBs 


UNLIKE END*TRANSACTICN» ABURT*TRANSACTION WAITS FOR 
COMPLETION OF QPEKATIUNS CURKENTLY IN PROGRESS, AND DOES 
IMPLICIT FREES ON WORKARKEAS IN THE MUDIFY UR CREATE STATE. 
LIKE END@TRANSACTIUN» IT IS ALWAYS EXECUTED SYNCHRUNQUSLY. 
THE SYNTAX IS 


ABORT*TRANSACTION UN EXCKEPTIUN 
<STATEMENT> LELSE <STATEMENT?>) 


AS IS TKUE FOR END* TRANSACTION» NEW UPERKATIONS FOR THE 
TRANSACTIUN ARE INHIBITED AND THE STATUS IS RETURNED IN 
TRANSACTIUN“STATUSs THE VALUES 1 AND 16 APPLY AND MEAN 
THE SAME AS FUR ENU*TRANSACTIONs 


ie 
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ABURT* TRANSACTION DOES NUT DESTROY THE USERS CURRENTS BUT 
GUARANTEES THAT NONF OF THE CHANGES THE TRANSACTION HAS 
MADE ARE KEFLECTED IN THE LATA BASE 


SUMMARY Ut STATUS VALUES 


woweneseana oa mono wm a aaeGa ae 


THE STATUS VALUES RELEVANT TO USER TRANSACTIUNS ARES 


i NU StT OF THE TRANSACTION IS UPEN AT END® 
TRANSACTLON Uk ABURT@ITKANSACTIONS 


16 QFERATIONS IN PRUGRFSS AT ENUD@TRANSACTION, 


17 ONE UR MURE WURKAREAS LN MUUIFY UR CREATE 
STATE AT END®*TRANSACTIUN. 


lo ONE OR MURE DATA BASE MUNITORS ARE OS@ED, 


19 ON AN QPEN» MORE THAN 62 RESTART AKFAS WOULD 
bE IN USE bY A SINGLE STACK, 


23 ATTEMPT TU JHILIZE USER SPECIFIED 
TRANSACTIONS» BUT THIS VERSION OF THF DATA 
HASE MUNITOR CAN HANDLE CUNLY UEFAULT 
TRANSACTIONS. 


102 TUG MANY BUFFERS REQUIKEDs 


RESTARI CUNVENTIUNS 

THE PHILUSUPHY UF DATA MANAGEMENT KESTART 1S THAT JUB AND 
TASK HESTART ARE THE RESPONSIBILITY OF THE WURKFLOW 
MANAGEMENT SYSTEM GWEM)» AND THAT VATA MANAGEMENT RESTART 
SHUULD BE INTEGRATED INTU THIS SYSTEM, 


THE CURRENT WORKFLOW MANAGEMENT PHILUSOPMY IS THAT JOBS 
ARE RULLED UUT AT CLEAN PUINTS (CIlebeo® NO TASKS ARE 
CURRENTLY RUNNING) AND RESTARTEUL AT THE LAST RULLOUT 
POINT. THAT TSe WFEM PROVIDES JUB RESTAKT AND THE USER 
PRUGRAMS HIS TASK RESTART WITHIN HIS JOB IN THE WORKFLOW 
LANGUAGE CWRL). THIS 1S ACCOMPLISHED FUR VATA MANAGEMENT 
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BY USING WEL TO SET THE TASKVALUE OF THE USER PROGRAM SO 


THAT IT CAN FIND ITS RESTART FALE. 


RESTART FILE 


NAME 


THE NAME OF THE RESTART FILE I5e BY CONVENTIUN, 


OMRESTART/<VATA BASE NAMED>/S<INIERNAL FILE NAMED/ 
<11 DECIMAL DIGITS> 


WHERE THE 22 OECTMAL DIGIT ftietb ITS COMPOSED UF THE 


FOLLUWING THREE SUBFIFLDSS 


<4 DIGIT 1U FIELO><4 DIGIT JOBR><3 DIGIT LTH 


THE FUUR OLGIT ID FIttb IS ZERU FOR FILES PRODUCED ay 
DMRECUVER. THE THREE OIGIT: LT# %&IS ThE THREE DIGIT 


LOGICAL TASK NUMBER OF THE TASK WITHIN THE JOB. 


THE USER 


ASSIGNS THIS NUMBER Mt THE TASK HIMSELF, BY USING WFL TO 
SET THE TASKVALUE UF HIS TASK AS DESCRIBED IN SECTION 4a3e 
ee 11 SwOULD BE UNIQUE FOR EACH TASK OF THE JOB AND 


SHOULD BE IN THE RANGF ONE TO 255 INCLUSIVE. 


ALL WECESSARY RESTART FILES ARt PRUDUCED AUTUMATICALLY BY 
DMRECUVER WHEN IT IS KUN» HUWEVER» IN ThE CASF WHERE A 
DATA MANAGEMENT JOH GETS ODS*EU FUR ANY REASON BUT THE 


MONITOR GOES TU NORMAL EUJ» UMRELOVER WILL NUT 


AND MUST 


NOT BE RUNe IN THIS CASEs THE BUG MUST FIKST BF FIXED? 
THEN THE JUB MUST RE RESUBMITIED UTILIZING THE DELAYED 
RESTART CONVENTIONS. THE UdStR MUST UbTAIN HIS RESTART 


FILE BY RUNNING SYSTEM/GETUMRESTARIFILE. 


SYSTEM*GFTOMRESTARTFILE 


THE INPUT FILE TO THIS PRUGRAM 1S IN A FILE CALLED CARD, 
INPUT IS FREE FORM IN COLUMNS 1°72. THE INPUT IS A LIST 
UF KEYWORD AND VALUF PAIKS. COMMAS MUST NUT BE USED TO 
SEPARATE THE PARAMETER PAIRS, BLANKS ARE USED AS THE 
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DUeee. “UNG TOU: eC ST GN er RECOVERY Cen Uuelsey co secceece 
DELIMITER INSTEAD. THE FUKM UF CACH PAIR LS <KEYWORD>2 
<VALUE>. THE EQUAL SIGN MUST be FRESENT. THE KEYWURD 
MAY HE ABBREVIATED Uff MISSPELLED UR CUNTAIN IMBEUDED 
BLANKS UR SPECIAL CHARACTERS AS LONG AS THE FIRST FEW 
CRKARACTERS AKE CURRFCT. THE SYNTAX Ut THE VALUE» 
HOWEVER, MUST bE EXACTLY CURRECTs FOR EXAMPLE,» IF FUUR 
DIGITS ARE REGUIKEUs THEN LEADING ZEROES» IF ANY» MUST BE 
PUNCHEU. THE FARAMETERS MAY APPEAR IN ANY URDFRe THE 
PARAMETERS ARE AS FOLLUWSS 
PARANETER NAME VALUE REQUIRED 
DATABASE NAME EB <UVATA BASE NAMED YES 
INTERNAL FILE NAME = <INTNAME UF RESTART tILE> YES 
MIX NUMBER = <4 DIGITS> YES 
JOB NUMBER = <a VIGITS> YES 
DATE = MM/DUsYY ® 
JULIAN DATE = YYUDD * 
TIME = MHHSMMESS * 
AUUIT SERLAL NUMBER = «<4 DIGITS> * 
1D = <4 DIGITS> NO 
(4) EITHER THE AUDTI SERIAL NUMBER IS SPECIFIED OR THE 
DATE AND TIME ARK BUT NUT BOTHe IF THE VATE AND TIME ARE 
SPECIFIFDs THE AUDIT AKCHIVt IS USED TU DETERMINE THE 
AUVIT SERIAL NUMBER. IN ANY CASE» THE AUDIT ARCHIVE IS 


USED TO FIND THE PACK NAME> 


NEITHER THE DATA 


SHUULD BE 
PRESENT» WILL BE 
FILE NAMEs 
EXAMPLE 2} 


BASE. 
TERMINATED 
SFUULD BE THUSE AT THF END Ut 


IF ANYe 


WITH A PERIOU, 
THE TASKe 


NAME NOR THE INTERNAL FILE NAME 
THe WATE AND TIME 
THE ID FI&LO» IF 


PLACED IN THE 10 FIELD OF THE RESTART 


THE UVEFAULT VALUE UF Iv IS ZERU. 


CATA BASE NAME #@ MYDK MIX*NUMBERK 2 0032 


JUB*NUMBER 2 0031 
TIME 


s 00301100 DATE = 


O1/02/73 


00264 
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INTERNAL FILE NAME @ MYRESTARTFILE 


EXAMPLE 2 
DATA = TESTUB AUDIT ® 0003 JOB ® 1234 MIX ®& 1236 
IO = 7777 INTNAME & RSF 


EXAMPLE ONE MAY PROUUCE A FILE NAMED UMRESTART/MYDB/ 
MYRESTARTFILE/OOUOUO3ILLL» IF SUCCESSFUL» WHERE LLL WAS 
THE LOGICAL TASK NUMBER OF THE TASK. (SEE NEXT SECTIONS) 


EXAMPLE TWO MAY PRODUCE A FILE NAMED OMKESTART/TESTOB/ 
RSF/77771234LLL5 WHERE LLL WAS THE LOGICAL TASK NUMBER, 


ALL INPUT NEEDED BY GFTOMRESTARTFILE MAY BE OBTAINED FROM 
THE LISTING THE SYSTEM PRODUCES WHEN THE JUB IS RUN» WITH 
THE POSSIBLE EXCEPTIONS OF THE DATA BASE NAME AND THE 
INTERNAL FILE NAME. THESE MAY» OF COURSE» BE OBTAINED 
FRUM A LISTING GF THE PROGRAM, 


GETOMRESTARTFILE WILL READ THe AULIT FILE SPECIFIED BY 
TRE AUDIT SERIAL NUMBFR BACKWARDS UNTIL IT EITHER REACHES 
THE BEGINNING OR FINDS THE RESTART AREAs IF IT REACHES 
THE BEGINNING OF THE AUDIT FILE» IT QUITS AND PRINTS A 
MESSAGE INDICATING THAT THE RESTART FILE WAS NOT FOUND. 
IF IT ENCOUNTERS THE RESTART AKEAs IT WRITES IT TO OISK 
AS A PERMANENT FILE. INDICATES THE TITLE IN ITS REPORT, 
AND THEN TERMINATES. 


esti ecee 

THE SIGN OF THE TASKVALUE 1S USEU TO INDICATE HALT/LOAD 
RESTART. IF THE TASKVALUE IS POUSITIVts, THEN IT IS A 
HALT/LOAD RESTART. THE MAGNITUDE UF THE TASKVALUE IS 
USED TU INDICATE & NORMAL RUN UR A VELAYEU RESTART. FOR 
A NORMAL RUN» THE ABSOLUTE VALUE UF THE TASKVALUE IS LESS 
THAN 256 ANU IS THE LOGICAL TASK NUMBER. FOR A DELAYED 
RESTART» THE MAGNITUDE UF THe TASKVALUE IS GREATER THAN 
255 AND IS THE ENTIRE THIRD IDENTIFIER OF THE RESTART 


i 
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FILE NAME. 


EXAMPLE 1 


TO RUN A NOKMAL JOB», THE FULLUWING WL PROGRAM CBULD BE 
USED. 


? JOB EXAMPLE 1 

? BEGIN 

V $s #13 

ON RESTART» TF V «< O THEN V #8 #V5 
RUN TEST1) VALUE = V3 

? ENL JUB} 


eal ie 

TO DU A DELAYED RESTART» ONLY ONE LINE UF THE PREVIOUS 
EXAMPLE NEED BE CHANGED. ASSUME THAT THE OLO JOB NUMBER 
WAS 9999 AND GETOMRESTARTFILE HAS BEEN RUN SUCCESSFULLY. 
THEN IME FOLLOWING WILL PROVIDE A DELAYED RESTART WITH 
FULL HALT/LUAD PROTECTION! 


? JUB EXAMPLF1L 

? BEGIN 

Vv ie #99990013 

UN RESTART» TF V< 0 THEN V te @V3 
KUN TESTIS VALUE = V3 

? END JOB3 


Se secon ee 

THE FOLLOWING IS A SKELETON OF A RESTARTABLE DATA 
MANAGEMENT COBOL JUB. THE PROGRAM READS AN INPUT DECK OF 
CARDS. EACH CARD CONTAINS ENUUGH INFORMATION TO UPDATE 
ONE MEMBER UF THE UATA MANAGEMENT SET PERSONNFL+ THE 
UPDATING UF UNE MEMBER IS A TRANSACTIONe THE POINT OF 
THE ESTART CODE 1S TO SKIP THE CAKOS THAT HAVE ALREADY 
BEEN PROCESSEU. 
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THE PROGRAM HAS FULL PROTECTION IN ALL CASES, INCLUDING 
HALT/ LOADS DURING A DELAYED RESTAKT. 


EXAMPLE CUBUL PRUGRAM 


IDENTIFICATION DIVISION. 
° 
° 
t) 
ENVIRONMENT DIVISION. 
. 
e 
6 
INPUT*OUTPUT SECTIONs 
FILE*CONTROL.» 
SELECT XXXX ASSIGN TO DATA*BASE*RESTART, 
. ; 
° 


DATA OIVISION. 
FILE SECTIUNs 
FO XXxxX VALUE GF IU IS XID. 
01 CARDSIN PIC 9(5) COMP. 
‘ 
. 
, 
DATABASE SECTION. 
01 INVOKE PERSONNEL IN COMPANYXe 
t) 
. 


WORKING*STORAGE SECTION. 
77 I PIC 9(5) COMP=1, 
s 


O1 XID. 
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O02 Xi PIC XC24) VALUE "DMRESTART/SCUMPANYX/XXXX/%o 
v2 x2 PIC 9(11). 
Q2 x3 PIC xX VALUE ™.". 


4 


e 
° 
PROCEDURE DIVISION. 
THEONLY SECTIUN. 
DUMLAB,. UPEN INPUT CARDs 
UPEN OUTPUT FRINT. 
OPEN PERSONNEL UPNATE ON EXCEPTION GO DIE. 
‘ 
° 
‘ 
IF MYSELFCTASKVALUE) > 0 GU HALT*LOADEL, 
IF ABSCMYSELFCTASKVALUE)) > 255 GO DELAYED@*RESTART«s 
GU START=PGM. 
DELAYED*®RESTART. COMPUTE X2 & ABSCMYSELFCTASKVALUE)). 
SET XxXxXX CTITLE) TO XID. 
SET XXxXx CFILETYFKE) TO 7o 
IF XxXXxX CPRESENT) = VALUE FALSE 
COMPUTE I = I/O ELSE GU CUNTINUE*RESTART. 
HALT™LUADEO. COMPUTE x2 = 
LOOO#MYSELFCEXCEPTIONTASKCSTACKNU)) + 
CMYSELFCTASKVALUE) MOD 1000). 
SET XXXX CTITLE) TU XIbe 
SET XxXxX CPILETYPE) TO 76 
IF XxXXx CPRESENT) © VALUE FALSE 
IF MYSELFCTASKVALUE) > 255 GO VELAYED*RESTART 
ELSE GU START*PGM. 
CONTINUE*RESTART. 
READ XXXX AT END COMPUTE I = 1/0. 
CRUSE XXXKX. 
MOVE CARDSIN TO l. 
MOVE O TO CARDSIN. 
PERFORM READ@*CARD I TIMES. 
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GO LOOP. 


START*PGM. MOVE O TU CARDSINe 
LOOP. PERFORM REAU@CARD. 
<UVATA BASE QPERATIONS TO UPDATE ONE MEMBER 
OF PERSUNNEL SET> 
END@TRANSACTION ON EXCEPTIUN GU UIEs 
GO LOOP. 


E0J. STOP RUN. 
Cle. COMPUTE I 2 1/0, 
READ*CARDs 


READ CARD AT END GO EQJ. 
ADD 1 TU CARUSIN. 


He 4, PITFALLS 


THE SYSTEM RESTARTS JUBS BY DEFAULT.» IF THIS IS NOT 
DESIRFO. THE JUB MUST BE CUDED IN WEL 50 THAT IT WONT 
RESTART. 


THE TASKVALUE UF A TASK MUST BE TESTED AFTER THE FIRST 
OPEN UN A. DATA MANAGEMENT SET. IF IT 1S NOT, RECOVERY 
MAY NOT YET HAVE BEEN RUN AND HAVE CREATED THE 
APPROPRIATE RESTART FILES. 


DIKECt 1/0 MUST BE USED BY THE COBUL PROGRAM TO 

SYNCHRUNIZE ITS GUTPUT FILES WITH ENU@=TRANSACTION. USING 
LOGICAL I/0 WILL RFSULT IN THE LOSS OF WHAT WAS IN THE 
CORE BUFFERS IF A HALT/ LOAD ULCURS. 

IN THE RESTART COLE» WHEN PUSITIUNING FILES FOR RESTART» 
IT 18 TYPICAL THAT THE CUUNTERS IN THE RESTART AREA WILL 
BE BUMPED. ONE WAY TO GET ARUUND THIS IS TO MUVE THE 
COUNTERS IN THE KESTART AREA TU TEMPURARY VAKIABLES* ZERO 
CUT THE RESTAKT AREA» AND USE THE TEMPURARY VARIABLES FOR 
REPOSITIONING COUNTS. 
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SOME SCHEME FOR REMOVING OLO RESTART FILES MUST BE 
DEVISED HY THE INSTALLATION. 


SUMMARY OF RESTART PROCEDURES 

RESTART AFTER A HALT/LUAD JS AUTUMATICs IF THE COBOL 
PRUGRKAM IS US*tD» A DELAYED RESTART MUST BE PERFURMED. 
GETOMRESTARTFILE MAY BE USED TO UBTAIN THE RESTART FILE 
IN THIS CASE. IF THE MONITOR WAS ALSO DS*"ED AND 
DMRECUVER SUBSEQUENTLY RUN» THE RESTART FILE WILL ALREADY 
BE THERE» BUT GETTING IT AGAIN WITH GETOMRESTARTFILE WILL 
DU NU HARM. 


DUPLICATED FILES 


INTRODUCTION 

DM6700 NOW SUPPORTS OUPLICATED FILES FOR ALL DATA 
MANAGEMENT FILES EXCEPT DM/<DATABASE@NAME>/DDL» DM/ 
<DATABASE*NAME>/AULITARCHIVE AND THE AUDIT TRAIL. 


UATA MANAGEMENT DUPLICATED FILES ARE NOT SYSTEM 
DUPLICATED FILES. THIS IS BECAUSE SYSTEM DUPLICATED 
FILES AKE NUT CURRENTLY SUPPURTED UN DISK PACK NOR WITH 
DIRECT I/0+6 THE FRRORS FILEs DM/<DATABASE*NAME>/ERRORS 
IS THE UNE EXCEPTION. IT IS FULLY DESCRIBED IN SECTION 
Tees ANU» IF DUPLICATED» WILL BE A SYSTEM DUPLICATED 
FILEe 


THE SYNTAX WITH WHICH DM6700 FILES CleEss BOTH FILES AND 
INDEXES) ARE OUPLICATED IS INCURPURATED INTO BOTH SDUL/ 
STRUCTURE AND SOL/INITIALI Zt. 


IF A OM6700 FILE ITS DUPLICATED» BOTH CUPIES MUST RESIDE 
UN THE SAME PEVICE (CIeEss ONE CUPY CANNUT BE ON DISK 
FACK WHILE THE OTHER ITS ON HEAUL@PER®*TRACK Do 


NAMING CONVENIION 
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@eeaen @aaane es aaa em ws om a} aam aa tina t Senmeeannan 


IF A Om FILE 18 10 RE DUPLICATEUs GNLY ONE COPY WILL BE 
KEPT. THE NAMES OF UM6700 OUPLICAITEL FILES ARES 


DM/<DATABASE “NAME >/®<STRUCTURE®NUMBERD BL" 
DM/<DATABASE “NAME >/"<STRUCTURE “NUMBER> #2" 


FOR SDL THE NAMES ARES 


DM/<DATABASE*NAMED/"SUL#1" 
UM/<DATABASE*NAMES/™SUL #2" 


Sed. SNL INTERFACE 


THERE ARE TWO WAYS IN WHICH 10 DUPLICATE 06700 FILES#== 
USING THE DEFAULT CLAUSE» AND INDIVIDUAL SPECIFICATION BY 
STRUCTURE « 


Sedels DEFAULT CLAUSE 


SYNTAX FUR A "DEFAULT STATEMENT HAS BEEN INCORPORATED 
INTO BOTH SUL/STRUCTURE AND SDL/INITIALIZE TO ENABLE 
SPECIFICATION OF DEFAULT VALUES FUR ALL STRUCTURES FOR 
SUCH THINGS AS DEVICE AND DUPLICATED FILES+ "DEFAULT 
DUPLICATED = UNS" WILL CAUSE ALL UM FILES» EXCEPT THOSE 
MENTIUNEO ABUVE» TO bE OUUPLICATED. IT IS POSSIGLE TU 

OVERRIDE THE DEFAULT VALUE GIVEN TO UUPLICATED BY 
INDIVIDUAL STRUCTURE USING THE SYNTAX PRESENTED BELOW. 
If» FOR EXAMPLE» "DEFAULT DUPLICATED = UN3™ WAS SPECIFIED 
AT STRUCTURE TIME» THEN SPECIFYING "DEFAULT DUPLICATED # 
OFFS" AT INITIALIZE TIME WOULD RESET THIS UPTION TOU OFF 
FOR ALL FILES NUT SPECIFICALLY SET TO UUPLICATED = ON 
USING THE SYNTAX FUR TNOIVIDUAL STRKUCTURESs 


IF DUPLICATEU IS NOT MENTIONEL IN THE DEFAULT SECTION OF 
SOL/STRUCTURE» THEN DUPLICATED #® UFF IS ASSUMED CleEoue 
THE OEFAULT VALUE FOR DUPLICATED IS UFF). 


INDIVIDUAL SPECIFICATIUN BY STRUCTURE 


THE SYNTAX FUR MODTFYING STRUCTURE INFORMATION AT 
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INITIALIZE TIME HAS HFEN EXPANULED TO INCLUVE DUPLICATED ® 
ON AND OUPLICATEU = OFF. 


1F THE UUPLICATED SYNTAX IS USED FOR A SPECIFIC 
STHUCTUREs IT WILL UVERKIUE ANY VALUE SPECIFIED FOR 
DUPLICATED IN THE DFFAULT SECTIONS.» 


NEW SYNTAX HAS ALS BEEN AUDEO TO SUL/INITIALIZE TO 
ENAKLE ATTRIBUTES SUCH AS UEVICE AND DUPLICATED TO BE 
GIVEN TO THE SOL AND FRRORS FILES. 


eeeuceee 
EXAMPLE 1! ?KUN SYSTEM/SDL/STRUCTURE 
2UATA GAKN 
DATABASE = TESTDBS 
VEFAULT DUPLICATED © UN» DEVICE = DISKPACKS 
PEND | 


BY SETTING DUPLICATED UN IN THt DEFAULT SECTION» THE USER 
HAS INUDICATEU THAT ALL UM FA4LES ARE TU BE DUPLICATED, 
(HE HAS ALSO SPECIFIED THAT ALL FILES RESIDE UN OISK 
PACK» SEE SECTION 6.) 


EXAMPLE 2t RUN SYSTFM/SOL/INITIALIZE 
@UATA CARD 
UATABASE = TESTUBS 
SET ERRORLUG DUPLICATEDSOFF 3 
SET SUL MUPLICATEU=UN) 
SET 16 BLUCKFACTOK = 10+ DUPLICATED @ OFF» 
| AREASIZE = 53 
#END 


IN THIS EXAMPLE, THERE IS NU DEFAULT SECTIUN AND THE USER 
HAS INDICATED THAT THE ERRUKS FILE ANU STRUCTURE #16 
SHUULD NUT BE OUPLICATED. IN AUDITION» HE HAS 
REDUNDANTLY SAID THAT THE SDL FILE WILL BE DUPLICATED CI. 
Kes SETTING DUPLICATED®UN IN THE OEFAULT SECTION OF 
STRUCTURE TURNED DUPLICATED UN FOR SUL). 


to 


to 


t- 
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ik RE ae 
USING OMPRINTIT ONE CAN PRINT BUTH UR EITHER COPY OF A 
DUPLICATED FILE. (SEF SECTION 9.101). 


TO GET A PRINTIT OF BOTH COPIES» THE "OLD" SYNTAX IS USED. 
THAT IS NO #1 OR #2 TS ATTACHED TU THE NAME OF THE FILE. 
THUS» TESTUB/0042 WILL CAUSE BUTH CUPIES UF STRUCUTRE 42 
TO BE PRINTED» If IT TS DUPLICATED. 


TO PRINT EITHER COPY SEPARATELY» THE EXACT TITLE IS GIVEN. 
THUS» TESTDB/"0042#2" WOULD RESULT IN PRINTING OF COPY 
NUMBER 2 FOR STRUCTURE NUMBER 42 ASSUMING STRUCUTRE 42 
WAS DUPLICATED. 


TESTOB/ALL wlLL PRINY BOTH CUPIES UF ALL FILES THAT ARE 
DUPLICATED. 


DISKPACK 


INTROOUCTION 


SYNTAX HAS BEEN ADDED TO STRUCTURE AND INTIALIZE TO 
ENABLE ANY OR ALL OM FILES TU RESIDE ON A NAMED FAMILY OF 
DISK PACKS, 


THE FAMILY WAME ISe IN ALL CASES» THE UATA BASE NAME. 
THUS» ALL UM FILES FUR A GIVEN DATA BASE THAT ARE TO 
RESIDE ON OD1SK PACK WILL BE PLACED UN A FAMILY OF OISK 
PACKS WHERE THE FAMILY NAME IS THE DATA BASE NAMEs ONE 
QF THE IMPLICATIUNS IS THAT UM FILES CEXCEFT AUDIT FILES) 
CANNOT RESIDE UN SYSTFM RESOURCE FACK, 


DM/<DATABASE®NAME>/ODL CANNOT bE PhALELD UN PACK, 


DM/<DATABASE*NAME>/ERRURS CANNOT BE PLACED ON FACK IF 
DUPLICATEL HAS BEEN SET ON.» Th1S 1S BECAUSE THE ERRORS 
FILE 1S aA SYSTEM NMUPLICATED FILE CIF OUPLICATEO IS 
SPECIFIED) ANO SYSTEM DUPLICATED FILES ARE NOT SUPPORTED 
UN DISK PACK. 
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UM/<DATABASE*NAME>/AUDITARCHIVE CANNOT BE PLACED UN DISK 
PACK. 


SDL INTERFACE 


YEFAULT CLAUSE 

ALL OM FILES CAN BE SET TO UVISK PACK QR HEAD@=PER*TRACK 
DISK USING THE NEW DEFAULT SYNTAX IN BOTH STRUCTURE AND 
INITIALIZE. FOR EXAMPLE, “LEFAULT DEVICE = DISKPACK3" 
WILL CAUSE ALL DM FILES EXCEPT THOSE NOTED ABOVE TU 
RESIDE ON NAMED PACK WHERE THE FAMILY NAME IS THE 
DATABASE NAME, IF DEVICe IS NOT SPECIFIED IN A DEFAULT 
CLAUSEs THEN THE LEVICE DEFAULTS TO HEAD*PER@TRACK DISKs 


INDIVIQUAL SPECIFICATION BY STRUCTURE 
EACH FILE ANO/OR INDEX CARD IN STRUCUTRE AND EACH SET 
STATEMENT IN INITIALIZE HAS THE DEVICE * DISK AND/OR 
DEVICE = VISKPACK SYNTAX INCORPURATED,. 


A DEVICE SPECIFICATION FOR AN INDIVIDUAL STRUCTURE 
UVERRIUES ANY DEVICE SPECIFICATION IN THE VEFAULT SECTION. 


Eleeeees 
EXAMPLE 12 ?@RUN SYSTFM/SDL/STRUCTURE 
PDATA CARD 
DATABASE = TESTDBS 
DEFAULT DEVICE = DISKPALK3 
INDEX ACCUUNTNO CTYPE © INDEX™SEQUENTIAL> 
DEVICE # DISK)3 
FILE SAVINGS (DEVICE = DISK)3 
FILE CHECKING (DEVICE ® DISKPACK)3 
PEND 


SETTING UVEVICE EQUAL TO DISKFACK IN THE DEFAULT SECTION 
WILL CAUSE ALL DM FILES EXCEFT DUL AND THE AUDITARCHIVE 
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TO BE PLACED ON A SFT OF PACKS WITH FAMILY NAME TESTDR. 


HOWEVER THE USER HAS SPECIFIED THAT THE FALE SAVINGS AND 
THE INOEX SEQUENTIAL STRUCTURE FUR ACCOUNTNO SHOULD 
RESIDE ON HEAN|PER=TRACK, THIS INCLUDES bOTH THE FINE 
ANU COARSE TABLES. THE FILE CHECKING WAS SPECIFICALLY 
PLACED ON PACK, . 


EXAMPLE 28 ?SYSTEM/SNL/INITIALIZE 
@UVATA CARD 
DATABASE © TESTOS 
DEFAULT NEVICE = ULSKS 
SET SUL NEVICE = LISKPACK, DUPLICATED # ON3 
SET ERRORLOG DEVICE = OLSKPACK; 
SET 16 BLOCKFACTOK @ 115 DEVICE & OISKPACK} 
PEND 


THE DEFAULT CLAUSE HERE WILL CAUSE THE SYSTEM TU PLACE 
ALL UM FILES NOT PREVIOUSLY SPECIFICALLY StT TO DISK PACK 
ONTO HEAD@PERK@TRACK, THE ObFAULT CLAUSE AT INITIALIZE 
rIME ULOES NUT OVERRIDE ANY OEVICE SPECIFICATIONS AT 
STRUCTURE TIME THAT WERE SEV AS INDIVIDUAL STRUCTURES. 
THUS» THE FILE "CHECKING" WILL STILL bE StT TO DISK PACK 
EVEN THOUGH THE DEFAULT IN INITIALIZt WAS UISK, 


THE USER THEN SELECTIVELY PLACES THE SoL FILE, THE ERRORS 
FILE AND STRUCTURE 16 BACK ONTU DISK PACKe THE SUL FILE 
wILL ALSO BE DUPLICATFD. 


WERE HE TO TRY ANN SET DUPLICATED © ON FUR THE ERRORS 
FILE. (CIeEss SET ERRURLOG DEVICE © DISKPACKs, DUPLICATED 
= ONS)» A WARNING WOULD BE PRINTED TO THE EFFECT THAT 
THIS FILE CANNOT RESTUE ON DISK PACK, IF DUPLICATED, AND 
DEVICE WOULD AUTUMATICALLY REVERT BACK TO DISK. 


DMPRINTIT INTERFACE 


DMPRINTIT HAS BEEN MODIFIED TO PRINT DM FILES THAT RESIDE 


ON DIBK PACK, CSEE SECTION 9e2620) 
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THIS SECTIUN DESCRIBES THE WAY IN WHICH M6700 HANDLES I/ 
0 ERROR INDICATIUNS IT RECEIVES FROM THE OPERATING 
SYSTEM» THE FORM IN WHICH SUCH ERRORS ARE TRANSMITTED 
BACK TO THE USER PROGRAM» AND THE MEANING OF THE NEW I/O 
STATUSES. 


UNTIL THE I1le4 RELEASE AN I/7U ERROR RESULTED IN A FAULT 
TERMINATION IN 067004 I/U ERROUKS ARE NUW CAPTURED AND 
LOGGED» AND NOTIFICATION UF SUCH 1S RETURNED TO THE USER 
PROGRAM VIA NEW STATUSES. 


ERHOR FILE 


LAYOUT OF ERRUR FILE 

A NEW FILE DM/<DATARASE*NAME>/ERRURS IS NOW CREATEOs ITS 
FUNCTIUN IS TO KEEP TRACK BY KOWs, OF WHICH COPIES OF 
WHICH STRUCTURES HAVE HAD READ AND/OK WRITE ERRORS. 


EACH RECURO OF THE FRRORS FILE 19 45 WORUS LONG AND THE 
FILE IS BLOCKED TWO. 


RECORD 0 CUNTAINS I/f ERRURS FUR THE SDL UIRECTORY WHILE 
RECORD 1° CONTAINS 170 ERRURS FUR THE SECUND COPY OF SOL 
IF IT IS DUPLICATED (IeEes OM/<DATABASE*NAME>/*SUL #2"). 


RECORD 2 CONTAINS 1/70 ERROKS FOR STRUCTURE #1 WHILE 
RECORD 3 CONTAINS 1/70 ERRURS tOR THE SECOND COPY OF 
STRUCTURE #1 IF OUPLICATED. 


IN GENERAL» RECORD 2XN CONTAINS. A LUG OF 1/0 ERROR 
INFORMATIUN FOR STRUCTURE N WHILE RECORD 2XN¢1 CUNTAINS 
I/O ERROR INFORMATION FOR THE SECOND COPY UF STRUCTURE Ne 


RECORD LAYUUT = ERKOR FILE 


THE FORMAT UF EACH 45 WORD RECURD IS AS FOLLOWS?! 


Velede 


DU284 


DM6700 © DESIGN OF RECOVERY FORK 06700 «= v4-o3=h GE 


101 


WORD O 


WORDS 1°21 


WORDS 22-42 


WORD 43 


WORD 44 


47:24 = NUMBER UF WRITE ERRORS FOR THIS 
STRUCTURF AND COPY. 23124 = NUMBER OF READ 
ERRURS FOR THIS STRUCTURE AND COPY, 


THE ROWS WHICH HAVE RECEIVED WRITE ERRORS 
ONE BIT PER ROW STARTING WITH WORD 1 BIT 47 
CROW 0) AND ENDING WITH WORD 21 BIT O CROW 
1006). A BIT ON (1) INDICATES THAT A RECORD 
IN THAT ROW HAS HAD A WRITE ERROR AND THAT 
ALL RECOROS IN THAT RUW ARE NUW LOCKED. 


THE ROWS WHICH HAVE RECEIVED READ ERRORS & 
UNE BIT PER ROW STARTING WITH WORD 22 BIT 47 
CROW 0) AND ENDING WITH WORL 42 BIT O CROW 
1008). A BIT UN (1) INDICATES THAT A RECORD 
IN THAT ROW HAS HAD A READ ERROR BUT THE ROW 
IS NOT NECESSARILY LOCKED, 


JULTAN DATE OF THt FIRST ROW IN ERROR. 


TIME OF THE FIRST ROW IN ERROR. THE TIME 
AND DATF ARE USED TU DETERMINE WHICH AUDIT 
FILE TO START WITH WHEN RECONSTRUCTINGe 


OMPRINTIT INTERFACE 


A FORMATTED 


LISTING OF THE ERRORS FILE MAY BE OBTAINED 


VIA OMPRINTIT USING A <DATABASESNAME>/ERRORS CARDs THE 
FORMAT OF THIS PRINTUUT IS DESCRIBED IN SECTION 9.1026 


NEW STATUSES 


&TATUS 
200 
201 
202 
204 


MEANING 
s ROW LOCKED OUT © WRITE ERROR 
READ ERRUK = UNIT NOT READY 
READ ERROR = READ PARITY 
RFAD ERROR = DESCRIPTOR IN ERROR 


STATUS 200 MEANS THAT ALL RECOKDS iN A ROW ARE LOCKED OUT 
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TO tVERYUNE. THERE WILL BE NU READS ATTEMPTED TO THIS 
ROW. ANY DATA MANAGEMENT UPERATION WHICH TRIES TO ACCESS 
A RECURD FROM THIS ROW WILL SEE THIS STATUSse THE REASON 
THE RUW IS LOCKEU IS THAT THE DATA ON DISK OR DISK PACK 
IS OUT OF DATE. THE FOLLOWING EXAMPLE WILL HELP CLARIFY 
THE NEED FOR ROW LOCKNUT.s 


SUPPOSE A USER PRUGRAM DOES A MODIFY, FOLLOWED BY MOVES» 
FULLOWED BY A STURE» AND THAL HE RECEIVES A STATUS OF 0 
FOR BUTH OM UPERATIONSs FRUM HIS POINT UF VIEWs HE HAS 
MODIFIED SOME ODATAs DM6700 MUST ALSU TREAT THE DATA AS 
HAVING BEEN UPDATEUs, AUT BECAUSE UF ATS MULTIPLE BUFFERS,» 
THE ChANGE TO THAT DATA WILL NOT BE REFLECTED ON DISK OR 
PACK UNTIL THE DATA MANAGEMEN) SYSTEM IS FORCED TO GIVE 
UP THAT BUFFER IN ORDER TO BRING IN NEW RESOURCES. WHEN 
OM6O700 ATTEMPTS TU WRITE THIS UPDATED RECURD TO DISK AND 
RECEIVES A WRITE ERROR» THE ROW LS LUCKED OUT. AT THIS 
POINT DM6700 CALCULATES THE KUW THIS RECURD WAS IN» AND 
ENTERS THE FACT THAT IT ENCOUNTEREU A WRITE ERROR UN THIS 
ROW INTO THE ERROR FILE. SINCE THE UPDATED MEMBER IS NO 
LUNGER IN A 06700 BUFFER AND BECAUSE 0M6700 WAS 
UNSUCCESSFUL IN WRITING IT BACK TO DISK» ANY FUTURE 
ATTEMPTS TU ACCESS ANY RECORD FRUM THYS KOW WILL RESULT 
IN A STATUS UF 200 * ROW LOCKED UUTs (THE MODIFIED DATA 
wILL» OF CUURSEs, BF WRITTEN IU THE AUUIT TRIAL» IF 
AUDITING.) 


IF A WRITE ERROR UCCURS ON A ROW UF A DUPLICATED FILE, 
THEN IF THE CORRESPUNUING kKUW IS NUT IN ERROR IN THE 
OTHER COPY,» A HAD STATUS WILL NUI BE PASSED BACK TO THE 
USER PROGRAM WHEN HE TRIES Tu ACCESS A RECURL IN THAT ROW 
IN EITHER CASE» HUWEVER»s THE FACT THAT A WRITE ERROR HAS 
NCCURRED 1S LOGGED In THE ERROK Flit. STATUSES 201» 202 
ANU 204 ARE READ ERRORSs« ALL READ ERRORS ARE ALSO LOGGED 
IN THE ERROR FILE BUT A KEAD EKRUR DUES NOT CAUSE ROW 
LOCKGUT. THE DUATA ON UISK 1S NUT OUT OF DATE, IT JUST 
CANNOT BE READs 


D0264  DM6700 = DESIGN UF RECOVERY FOR OM6TU0 = ogeogeh§SF 193 


WITH DUPLICATED FILES» aA READ ERROK FRUM A ROW IN ONE 
COPY WILL NOT BE RETURNED TO THE USER FRUGRAM AS SUCH 
UNLESS THE CURRESPUNDING ROW IN THE UTHER COPY HAS EITHER 
A READ OR WRITE ERRORe IF THE CORRESPONDING ROW HAS A 
WRITE ERROR» THEN A STATUS OF 200 WILL BE RETURNED. IF 
THE CURRESPONDING ROW HAD A READ ERRUR» THE APPROPRIATE 
READ ERROR WOULD BE RETURNED. 


THE SYSTEM MAINTENANCE LOG CAN BE USED IN CONJUNCTION 
wIfH THE ERRUR FILE TO DETERMINE SUCH THINGS AS PHYSICAL 
DISK ADDRESSES» DATES AND TIMES OF ERRURS. 


FOR PURPUSES OF RECONSTRUCTION AND RESTORATION» IT IS 
IMPORTANT TO BE COGNIZANT OF ENTRIES IN THE ERROR FILEs 
THIS MAY BE DUNE VIA USER PRUGRAMS GIVING SOME SORT OF 
NOTIFICATION UPON RECEIVING SUCH ERRUR STATUSES& OR BY 
PERIODIC FORMATTED LISTINGS OF THE ERKKOR FILE VIA 

OMPRINTITs SECTION 6 GIVES A VETAILED EXPLANATION OF HOW 
AND WHEN THE ERKOR FILE IS USED IN CUNJUNCTIUN WITH 
RECONSTRUCTION AND RESTORATIONs 


RECONSTRUCTION AND RESTORATION 


INTRODUCTION 


RECONSTRUCTION AND RESTORATIUN PERFORM TWO FUNCTIONS. 


THE FIRST IS TU BRING DATA IN A RUW LOCKED OUT BECAUSE OF 
WRITE ERRORS uP TO DATE AND TO PLACE THIS NEW, UPDATED 
ROW IN ANOTHER PHYSICAL LOCATIUN. 


THE SECOND FUNCTION IS TO MUVE RUWS WHICH HAVE HAD READ 
ERRORS TO OTHER PHYSICAL LOCATIONS» 


RECONSTRUCTION AND RESTURATIUN PERFORM BOTH FUNCTIONS. 
THE DIFFERENCES BETWEEN THEM ARE A MATTER OF TIME ANO 
SPACt. 


RESTORATION 
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RESTORATIUN HEQUIRES A GOUD CUPY UF ThE ROW FROM THE 
UTHER COPY UF THE DUPLICATED DATA BASE FILt. IT COPIES 
THE GOOD kOW TO A GUOD kOW UF ANOTHER FILE CEITHER ONE 
INTERNAL TO RESTURATION OR A USER SPECIFIED BACKUP) AND 
THEN EXCHANGES THE NEWLY CREATED GOOU ROW WITH THE BAD 
ROW. AT THIS POINTs THE PARTICULAK KOW 1S VALION AND UP 
TO DATE UN BUTH CUPIFS UF THE DUPLICATED DATA MANAGEMENT 
FILE. 

Sone nu eeee 

RECONSTRUCTION DOES NOT HAVte AN UP TU DATE COPY OF THE 
HAD KUW AS RESTORATION DOESe THUS ITS FIRST TASK WHEN 
RECONSTRUCTING aA ROW LUCKED OUT BECAUSE OF WRITE ERRORS» 
IS TO BRING THE CORRESPONDING KUW OF A PREVIOUS BACKUP 
COFY UF THE FILE UP TU DATE USING THE AUDIT TRAIL» ONCE 
THE BACKUP RUW JS UP TU DATE» RECONSTRUCTION EXCHANGES 
THLS RUW WITH THE BAD ROW JUST AS RESTURATION DOES. 


SFLECTIUN OF THE STARTING AUDIT FILE [S CKITICAL. THE 
DATE AND TIME THAT THE STARTING AUDIT FILE WAS CREATED 
MUST BE BEFORE THE DATE AND TImt UF THe FIRST ERROR FOR A 
GIVEN STRUCTURE. IF THE STARTING AUDIT FILE WAS CREATED 
AFTER THE FtIRST ERROR» MODIFICATIONS TO DATA IN ANY OF 
THE BAD ROWS MAY HAVE BEEN MADE IN THE INTERIM AND WOULD 
THUS BE LUST ©" AFTFR IMAGES FOR THESE CHANGES WOULD BRE 
IN AN EARLIER AUDIT FILEs 


CONSIDER THE FOLLOWING SEQUENCE OF EVENTSS 
TUESDAY = DA/AUDITOOUL CREATED. 


RECORD IN RUW 56 FOR STRUCTURE 12 MUDIFIED AND STORED 
SUCCESSFULLY. A WRITE ERROR UCCURS ATTEMPTING Tw WRITE 
THE PREVIOUSLY MUDIFIED RECORD. (CieEos COPY OF RECORD 
UN DISK 1S NUW OUT OF DATE). 


UB/AULDITOOO1 FULL, 
DB/AUVDITUO02 CREATED. 
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ASSUMING THE ABOVE WRITE ERKOR WAS THE FIRST ERROR FOR 
STRUCTURE 12+ THE MATE AND TIME WILL HAVE BEEN ENTERED 
INTO THE ERRUK FILE. IF DB/AULDIT0002 WERE CHOSEN AS THE 
STARTING AUDIT FILE» THE RECURO IN ROW 56 WOULD BE OUT OF 
DATE AFTER RECONSTRUCTION FINISHED, THUS» UNLESS 
OVERRIDDEN BY A USER SPECIFIED STARTING AUDIT SERIAL 
NUMBER» KECUNSTRUCTION WILL SEARCH THE AUVIT ARCHIVE FOR 
AN AUDIT FILE THAT WAS CREATED BEFORE THt DATE AND TIME 
OF THE FIRST ERROR THAT APPEARS IN THE ERRUR FILE. 


OMROWRECOVERY = USER INTERFACE 


2 INTgopucTign 
THE USER INTERFACE TO RECONSTHUCTIUN AND RESTORATION IS 
THROUGH THE PRUGRAM SYSTEM/DMRUWRECOVERY, 


THE BASIC INTENT OF DMROWRECUVERY IS THAT THE DATA BASE 
ADMINISTRATOR BE ABLE TO TELL OM6700 TU "REBUILD" A 
STRUCTURE FOR A DATA BASE, BUT THAT DM6700 LETERMINE VIA 
THE ERROR FILE WHICH ROWS SHUULL BE RESTORED AND WHICH 
NEED TO BE RECONSTRUCTED TO COMPLETELY REBUILD ALL 8AD 
ROWS FUR THAT STRUCTURE OF THE DATA BASEs ThUS IT IS NOT 
POSSIBLE TO REBUILD ONLY SOME ROWS UR SPECTFIC ROWS OF A 
STRUCTURE WITHOUT REBUILDING ALL 17S BAD RUWS, 


c seugee 
THE REMOVE COMMAND GIVES THE USER THe ABILITY TO REMOVE 
FROM THE ERROR FILE THE INDICATION THAT A ROW OR ROWS OF 
A DATA MANAGEMENT FILE HAD INCURRED A READ ERROR«e THUS 
ANY SUBSEQUENT RECONSTRUCTION AND/UR RESTOWATION CLeEus 
RUN OF DMBUARECUvERY) WILL HAVE NU EFFECT UPON THIS ROWs 


THIS COMMAND WAS INCORPUORATtEO FOR THE CIRCUMSTANCE IN 
WHICH REAU ERRORS HAD BEEN DETECTEL BECAUSE UF A UNIT NOT 
READY. SUCH AN ERROR WOULD BE RETURNED TO THE 

APPLICATION PROGRAM AS A STATUS UF 201, HUWEVERs IT IS 
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REASONABLE FUR A DATA BASE AUMINISTRATOR TO RECOGNIZE 
THAT THESE READ ERRORS WERE UNLY A RESULT OF A UNIT NOT 
READY AND SINCE THE DATA IS NUT BUT GF DATE AND CAN NOW 
BE READ (UNIT MADE READY) HE SHUULD RESET THOSE READ 
ERRORS. 


SINCE THE REMOVE ONLY PERTAINS IT0 READ ERRORS» NO 
INTEGRITY CAN BE LOST SINCE THE WURST THAT CAN HAPPEN IS 
TO TURN UFF THE INDICATION THAT A ROW WHICH HAD A READ 
PARITY WAS BADse THE RUW WILL SIMPLY NOT BE RESTURED OR 
RECONSTRUCTED UNLESS IT IS TURNEU BACK ON EITHER bY THE 
DATA BASE ADMINISTRATOR OR VIA ANOTHER READ PARITY 
RECEIVED FRUM DM6700. 


THERE IS NO WAY TU REMOVE A WRITE ERROR FROM THE ERROR 


THE INSERT CUMMAND OUES THe OGOPPUSITE OF THE REMOVE 
COMMAND > IT ENABLES THE DATA BASE AUMINISTRATOR TO SET 
READ ERROR BITS FORK ANY ROW OR ROWS 


THIS CUMMAND ITS NEFDED IN A SITUATION WHERE» SAYs A 
STURAGE UNIT WERE TU FAIL« GIVEN ENOUGH ACTIVITY AND 
TIMEs DM6700 WOULD ATTEMPT Tu ACCESS OR WRITE ONTO THIS 
STURAGE UNIT AND WUULD APPROPRIATELY RECORL THE FACT THAT 
IT WAS UNABLE TU DU SOs THUS GIVEN SUCH A SITUATIUN»s THE 
DATA BASE AUMINISTRATOR NEEUS A WAY TO TELL DM6700 THAT 
FOR VARIOUS STRUCTURES» CERTAIN OF ITS RUWS ARE IN ERROR. 


ehede REBUILD 

THIS CUMMAND SIGNALS DM6700 THAT» FOR A GIVEN DATA BASE 
AND STRUCTURE. THERE ARE ROWS IN ERROR ANU OF THE LESTIRE 
TO KEBUILD ALL BAD ROWS. ODM6700 WILL DECTIUE WHICH ROWS 
CIF ANY) NEED TO BE RFBUILT. 


INSTALLATION ALLUCATED DISK ANU DISK PACK 
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ADDITIONAL CONSIDERATION MUST Bk GIVEN TU FILES WHICH 
RESIDE ON INSTALLATION ALLOCATED DISK OR DISK PACK. 


IN PARTICULAR» EACH BAD ROW MUST BE MAPPED INTO A ROW OF 
A BACKUP FILE. THIS OFFERS + KOM NON@“LAD OM FILES IN 
THAT DMRUWRECOVERY WILL ALLOCATE ITS OWN BACKUP ROW FOR 
RESTURATIUN PURPOSES 1F A BACKUP 1S NOT SPECIFIED BY THE 
USER. WITH IAD FILES» HUWEVER» THERE MUST BE A ONE FOR 
ONE CORRESPUNDENCE BETWEEN BAD ROWS AND GOUD BACKUP ROWS. 
THE SYNTAX FOR ACCOMPLISHING THIS UNE TO ONE MAPPING IS 
GIVEN IN Be4e60 


AN ADVANTAGE WHICH RESULTS FROM HAVING TU PROVIDE A ONE 

- TO ONE MAPPING OF GOND TO BAD ROWS IS THAT LAD SPECIFIED 
BACKUP FILES NEED ONLY HAVE AS MANY ROWS AS THERE ARE BAD 
ROWS IN THE UM FILE. 


EXAMPLES 

CONSIDER THE FOLLOWING SITUATIONs STORAGE UNIT 32 
CRASHES DURING THE NIGHT. ALL UF DM/TESTOB/0045 AND 
THREE ROWS UF UM/TESTDB/0027 WERE UN THIS SU AS IAD FILES. 
THE FOLLOWING IS THE TAD MAPPING FOR BOTH FILES. 


DM/TESTOB/0027 UM/TESTDB/0045 
ROW SU ADDRESS ROW SU ADDRESS 
0 32 100 0 32 3010 
i 32 105 1 32 3110 
2 3e 110 
3 34 100 
4 34 105 


SUPPOSE ALSO THAT ROW 4 OF DM/TESTDB/0027 WAS LOCKED OUT 
FRUM A PREVIOUS WRITE ERROKs THIS PARTICULAR 
INSTALLATION TAKES AACKUP DUMPS BY SU SO THAT 
RECONSTRUCTING A SU INVOLVES RECONSTRUCTING FROM A BACKUP 
cory OF SU32 ON RFSERVE SU46. THE ERROR IN ROW 4 
PRESENTS AN ADDITIONAL PROBLEM» HOWEVER, SINCE THE 


i 1 
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INSTALLATION WANTS TU KEEP THAT ROW ON SU34 AND NOT ON 
THE HACKUP SU4Be THUS A SIX KOw IAD FILE DM/TESTDB/ 
[AUBACKUP MUST BE CREATEU. 


DM/TESTUG/TADBACKUP 
KOW OU ADDRESS 
) 46 100 
1 46 105 
2 48 110 
3 468 3010 
4 46 31190 
5 34 200 


THUS TO REBUILU THE BAD RUWS FROM BOTH THE FILES» THE 
FOLLOWING CARUS WOULD BE USED WITH DMNRUWRECOVERY? 


PRUN SYSTEM/DMROWRECOVERY 
PUATA CARD 
DATABASE = TESTDB 
STRUCTURE 45 
INSERT ROWS 001 
REBUILD ALL ROWS 
BACKUP TS COM/TESTUB/TADBACKUP) 
TAD CORRESPUNDENCE IS 3805 4a 
AUDIT = 13 
STRUCTURE 27 
INSERT ROWS 082 
REBUILD 
BACKUP ITS COM/TESTDB/IADBACKUP) 
TAM CGRRESPUNDENCE IS 0700121,222,584 
, 
PEND 


FORK STRUCTURE 45» AN TNDICATION THAT ROWS UO AND 1 ARE BAD 
MUST FIRST BE INSERTED INTU THE ERRUR FILE SINCE THIS 
STRUCTURE HAUL NOQ ERRORS PRIUR TU THE CRASHING OF SU32. 
SINCE THERE WERE NQ ERROKSs»s JI IS NUT POSSIBLE FOR 
OMROWRECOVERY TO FIND IN’ THE AUDIT ARCHIVE THE PROPER 
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eauaeneaae oe Beeenn 22 See eeeGen see 28 SGEn oe» Sete 8a08 
AUDIT FILE WITH WHICH TO STARTs THUS AN AUDIT SERIAL 
NUMBER MUST HE SPECIFIED. 


FOR STRUCTURE 27 NOTE THAT NO AUDIT SERIAL NUMBER IS 
NECESSARY» SINCE ROW 4 WAS IN ERROR PRIOR TO SU32 
CRASHINGs THUS THE DATE» AND TIME AT WHICH THE ERROR 
OCCURRED IS RECORDED IN THE ERKKOR FILE ANU UMROWRECOVERY 
CAN DETERMINE WHAT IT IS, HAD ROW 4 HAD A READ INSTEAD 
QF WRITE ERROR AND THE DATA BASE ADMINISTRATOR WANTED 
ONLY TO REBUILD THE SU» THEN THAT ROW COULD HAVE BEEN 
REMOVED FRUM THE ERROR FILE WITHOUT CUMPROMISING THE 
INTEGRITY UF THE UATABASE>s CNUTEt ThE RECORD THAT 
ENCOUNTERED THE READ FRROR WILL STILL BE IN ERROR.) 


SYNTAX 


THE SYNTAX FOR OMRUWRECOVERY 158 


<DMROWRECUVERY REQUEST> &ts <DATABASE NAME SPEC> 
<STRUCTURE ROW RECOVERY LIST> 
<DATABASE NAME SPEC> t82% <DATABASE NAMED / 
<DATABASE DESTGNATUR><EQUALS PART><DATABASE NAME> 
<DATABASE DESIGNATUR> 8&8 QYATADASE / DATA*BASE 
<EQUALS PART> %t2 <EMPTY> / # 
<STRUCTURE KOW RECUVERY LIST t38 
<STRUCTURE ROW RECUVERY REQUEST>/ 
<STRUCTURE ROW RECOVERY LIST>3 
<STRUCTURE ROW RECOVERY REQUEST> 
<STRUCTURE KOW RECUVERY REQUESIT> tt <STRUCTURE SPEC> 
<ERROR FILE STATEMENT>/ 
<STRUCTURE SPEC><REBUTILU STATEMENT>/ 
<STRUCTURE SPEC><ERKUR FILE STATEMENT> 
<REBUILD STATEMENT? 
<SITRUCTURE SPEC> ide SUL / <STRUCTURE NUMBER> / STRUCTURE 
<STRUCTURE NUMBER> 
<STRUCTURE NUMBER> 882 <UNSIGNED INTLGER> 
<ERROR FILE STATEMENT> 888 <REMUVE STATEMENT? / 
<INSERT STATEMENT> 
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<REMOVE STATEMENT> tia 
REMOVE <ERKROKR FILE PART> BUTH 
<COPIES PART><ALL SPEC> / 
REMOVE <ERROK FALE PART> BUTH 
<COPIES PART><ROW SPELS> 
<AND PART><FILE SPECS PART> / 
KEMUVE <ERKROR FILE PART><OUPLICATE SPECS> 


<ROW SPECS PART><AND PART><FILE SPECS PART> 


<FRRUK FILE PART> &&= <EMPTY> / FROM ERROR FILES 
INTO ERRUR FILE 
<CUPIES PARKT> t82 <EMPTY> / COFIES 
<ALL SPEC> tt= ALL / ALL RuUWS 
<RUW SPECS> 882 <RUW PART><ROW NUMBER SPECS> 
<RUW PART> 883 <EMPTY> / ROW / ROWS 
<RUW NUMHERK SPECS> tte <kOW NUMBER> / 
<KOW NUMBER><THRU SPEL> / 
<RUW NUMBER SPECS><COMMA FART><ROW NUMBERD / 
<RkKUW NUMBER SPECS><COMMA FART> 
<ROW NUMBER><THRU SPECS 
<THRU SPEC> $82 THRU <ROW NUMHER> / © <RUW NUMBER? 
<CUMMA PART> t= <EMFPTY> / 5» 
<AND PART> 8382 <kMPTY> / AND 
<FILE SPECS PART> tt «EMPTY> 
<UUPLICATE SPECS><RUW SPECS PART><AND PART> / 
<FILE SPECS PART ><FILE SPECS FARTS 
<QUPLICATE SPECS> 882 <EMPTY> /¢ 
<COPY PARKT> UNE / 
<CUPY FAKT> TW 
<CUPY PAKI> 88s <EMPTY> / CORY 
<RUW SPECS PAKT> tt2 «ALL SPEC> / <RUW SPECS> 
<INSERT STATEMENT? t282 
INSERT <ERRUR FILE PART> BUTH 
<CURIES PART><RUW SPLUS> 
<AND PART><FILE SPECS FART /¢ 
INSERT <ERRUR FILE FART><UURLICATE SPECS> 
<kUW SPECS><AND PART><FILE SPECS PART> 
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<REBUILD STATEMENT> %8% REBUILD / 
REBUILU <ALL PAKT> BACKUF <tILE PART><TITLE SPECS> 
<ALL PAHT> &82 <EMFPTY> / <ALL SPEC> 
<FILE PART> 88s <EMPTY> / FILE 
<TITLE SPECS> tse <TITLE><IAD PARTA><AUDIT FARTS/ 
<DUPLICATE TIILE SFECS><TITLE><1LAL PART><AUDIT PART> 
<TITLE> stm (<FILE TITLE IN DISFLAY FORM>) 
<€1AD PART> %12 <EMPTY> / 
TAU <CORRESPONDENCE PART? 
<IALD NUMBER SPECS> 
<CURRESPUNDENCE PAKT> t88 <eEMPTY> / CORRESPONDENCE IS 
<IAD NUMBER SPECS> tts 
<IAD ROW NUMBER> = <FILE RUW NUMBER> / 
<IAD NUMBER SPECS><COMMA FART2<I1ALD KOW NUMBER? = 
<FILE ROW NUMBER> 
<AUDIT PART> t88 «KEMPTY>/ 
AUDIT <SERIAL PARKT><NUMBERK PART> 
= <AUDIT FILE NUMBER> 
<SERIAL PART> t38 <EMPTY> / SERIAL 
<NUMBER PART> %32 <EMPTY> / NUMBER 
<DUPLICATE TITLE SPECS> tte 
<FUR PART><COPY PART> ONE <IS PART><TITLE> 
<IAD PART><COMMA PART><FOR PAKT><COPY PART> 
TWO <IS PARTO 
<FUR PART> 883 <EMPTY> / FOR 
<IS PART> t%2 <EMPTY> / IS 
EXAMPLES 


da 
DATA“BASE = T0047 
SOL 
REMOVE FROM ERROR FALE 
COPY ONF RUWS 2» 56 7 THRU 11 
COPY TWO ALL ROWS 
AND REBUILD 
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cocles so gees) wen cotevece tees eueece. ‘a secoeede 
BALKUP FILE FOR COPY ONE IS 
CDM/TOU4T/™SULEI")» 
FUR CUPY TWU 1S 
(UM/TOO47/™SULB2") 


STHUCTURE 2 
INSERT INTO ERROR FILE 
COPY ONE RUW 13 AND COPY TWO RUWS 9°18 
KEHUILD ALL RUWS 
BACKUP FILE 
FUR COPY ONE IS CUM/TO0047/"000281") 
TAD CORRESPONDENCE IS 12552260680 
FUR COPY Twu IS (€0M/T0047/"000282") 
TAD CORRESPUNDENCE IS 181,3235485 
AUDII SFRIAL NUMBER © 23 


eee ee eS 
Tous? 
v4 
INSERT 
UNE 13 TwO 9="18 
KEBUILD ALL 


BACKUP 
ONE COM/TUO47/"U002#1") 
IAD 1 ® 55 2 = 65 6 20 
TWO CUM/TOO47/"0002#2") 
IAD 121, 3835 485 
AUUIT = 23 


PRAGMATICS 
EACH <STRUCTURE KkOW RECUVERY REQUEST> IS <A SEPARATE 
REWUEST TU THE DATA BASE MUNITURe THESE REQUESTS ARE 
HANDLEY THE SAME AS NORMAL REQUESTS (CEeGes FINDs MODIFY. 
ETC.) FROM USER CUBUI PROGRAMS.» UNE OF THE CONSEQUENCES 


Be4,9u 


ac 


ssc 
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1S THAT THE AUDIT TRAIL MUST BE SCANNED ONCE FOR EACH 
STRUCTURE THAT NEEDS TO BE RECUNSTRUCTED, 


ONCE OMRUOWRECOVERY HAS PASSED THt LATA BASE MONITOR ALL 
ITS REQUESTS» IT GOES TO EGU WITHOUT WAITING FOR A REPLY 
FROM THE MONITOR. 


DOLLAR OPTIUNS 
THE INPUT TO SYSTEM/DMROWRECOVERY IS A CARD FILE LABELED 
CARD", 


THE PROGRAM HAS DOLLAR OPTIONS AS FOLLOWS! 
DEBUG DUMPS SCANNER) ARRAY ANDe IF THE STATEMENT IS 
ERROR FREE» THE CONITENT® OF THE MESSAGE ARRAY. 


List IS OFF BY DEFAULT AND PRUDUCES A LISTING OF 
THE INPUT CARDS If TURNED ON. 


SINGLE IF SET» IT SINGLE SPACES THE LISTING. 


SYNTAX IF SET» THEN THE REWUESTS ARE NUT PASSED ON TO 
SYSTEM/DM6700. 


THESE UPTIONS MAY BE SET» RESET ANU PQPPEDs THE RUN MUST 
BE COMPLETELY ERROR FREE BEFORE ANY REQUESTS ARE PASSED 
ON TO SYSTEM/DM6700,. 


IN THE CASE UF UM DUPLICATED FILES» DMPRINTIT WILL PRINT 
BOTH COPIES OF THe FILE.» WHETHER THE OPTIUN "ALL® IS SET 
CTeEos <DB NAME>/ALL) OR WHETHER A PARTICULAR STRUCTURE 
IS REQUESTED (IeEes <DR NAME>/0004). A SINGLE COPY WILL 
BE PRINTED IN RESPONSE TO The FOLLOWING TYPE OF INPUT? 
<OB NAME>/0004#2" OR <DB NAME>/"000481", 


INDICATION THAT DUPLICATED 15 ON OR OFF 1S PRINTED BOTH 
IN THE HFADING OF EACH FORMATTED STRUCTURE AND IN THE SDL 
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REPORT FUR THOSE STRUCTURES SUBJECT TU DUPLICATION 
(LINKS». LISTS ANU RANDOM INDEX ARE NUT SUBJECT TO 
DUPLICATION). 


ee ecue ate 

A FURMA(TED CHART nk THE ERROKS FILE (0M/<DB NAME>/ 
ERNORS) MAY BE OBTAINED WITH THE FOLLOWING SYNTAX? <DB 
NAME>/ERRURS.» IF THERE AKE NO WRITE OR REAO ERRORS 
PERTAINING TU THE NAMED DATA BASE» A MESSAGE WILL BE 
PRINTED OUT TO THAT EFFECT, 


IF ERROR INFORMATION EXISTS» THEN THREE KINDS OF TABLES 
AILL BE PRINTED! 


1. FUR EACH STRUCTURE WHICH CONTAINS ERRURS (BY COPY, 
IF DUPLICATED) THE FULLOWING INFORMATION IS 
PRINTEDS STRUCTURE NUMBER UR "SDL, COPY NUMBER 
CIF PERTINENT)» UATE AND TIMt OF THE FIRST ERROR, 
THE TYPE (WHETHER WRITE OR READ) THE NUMBER OF 
ERRORS» ANU THE NUMBEKS UF THE ROWSCAREAS) WHICH 
ARE I[N ERROR. 


2e RECONSTRUCTION AND RESTURATION INFORMATION FOLLOWS 
EACH STRUCTURE WITH EKROKSs THIS INFORMATION 
DISTINGUISHES THOSE RUWS WHICH REQUIRE 
RECONSTRUCTION FRUM THOSE WHICH REQUIRE 
RESTORATIUN. 


3e A FINAL SUMMARY STATEMENT 1S MADE WHICH NAMES THE 
AUDIT FILE WHICH PRECEDES THE DATE ANO TIME GF THE 
FIRST ERROR. 
HADROW CHECK 
WITH THE IMPLEMENTATION OF THE ERRORS FILEs OMPRINTIT 
WILL NOW CHECK CIN FORMATTED MODE ONLY) WHETHER OR NOT A 
RECORD wAS InN A’ BAD ROW CAREA)s THIS PREVENTS THE 
PRINTING OF GARBAGE INFORMATIONse INSTEAD» THE MESSAGE 
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"RECORD IN BAD ROW" IS PRINTED. 


epee ma 

CHART OF THE AUDITARCHIVE (OM/<DR NAMED>/ 
MAY BE OBTAINED WITH THE FOLLUWING SYNTAX? 

THE FILE 1S READ IN REVERSE 
ORDER AND PRINTS THE FULEOWING INFORMATIONS RECORD 

NUMBER» DATE» TIMEs AUDIT SERIAL NUMBER, AND PACKNAME 
CRPPACK™ IMPLIES SYSTEM RESOURCE DISKPACK), 


A FORMATTED 
AUDITARCHIVE) 
<Ob NAME>/AULDITARCHIVE. 


Set 
FORMATTED SDL NUW 
DATA BASE.s IF A 
FORMATS THE FOLLU 
FILE» WHETHER BEF 
CONTROLCYCLES» WHE 
FALSE» THE AUDIT D 
PACK)» ANU THE AUD] 


OTHER CHANGES 


ALPHA*HEX MODES 


TNCLUDES AUDIT INFORMATION ABUUT THE 
UDTT HAS BEEN TURNED ON» OMPRINTIT 
WING RECORDS NUMBER OF AKEAS IN AUDIT 
OREIMAGES BIT IS ON OR OFF, NUMBER OF 
THER DATA GASK*IN@USE BIT IS TRUE OR 
EVICEs PACKNAME CIF THE OEVICE IS DISK 
T SERIAL NUMBER. 


PROVIDES FOR THt PRINTING OF DATA FILES IN 
THE FULLOWING MODE CAROS ARE NOW 
ALPHAI» NO ALPHA1»® HEX» NO HEX. 
WORK AS BEFORE (CIekos NO 


FEATURE 
ALPHANUMERIC MODF. 
POSSIBLE! ALPHAs NU ALPHA» 
BY DEFAULT» OMPRINTIT WILL 
ALPHANUMERICS» ONLY HEX). 


THIS 
THE 


OF THE DATA TO 
ALPHA1 CAUSES 


ALPHANUMERIC EQUIVALENT 
BE PRINTED ON THE RIGHT SIDE UF THE PAGE. 
THE ALPHANUMERTCS TN BE PRINTED BENEATH EACH HEX LINE. 
ALPHA AND ALPHAL CAUSE BOTH THE ABUVE TO OCCUR. NO HEX 


ALPHA CAUSES THE 


ELIMINATES THE HEX 
HEX RETURNS TO THE 


.OISKPACK 


LINE AND PRINTS ONLY THE ALPHANUMERICS, 
NORMAL MODE OF HEX UUTPUT ONLY, 


i 
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CHANGES ENABLING OMPRINTIT TU HANDLE FILES ON DISK PACK 
HAVE BEEN MAUEs THF SOL REPURT NOW INCLUDES THE UEVICE 
AND THE PACKNAME CIF THE FILE IS ON UISK PACK), 


FOR DMPHINTIT TO ACCESS FILES STOKED ON NAMED PACK WHERE 
THE PACK NAME IS NOT EQUAL TO THE DATA BASE NAME CFOR 
EXAMPLE» AUDIT FILES)» THE FOLLOWING "MOQVE* CAKUS ARE 
USED! “USERPACK <PACKNAME>*® AND "NO USERPACK® (TU RESET 
THE GPTIOND« 


acess ANYFILENAME 
THe CAPACITY TQ FRODUCE A HEX DUMP OF ANY FILE (WITH AT 
LFAST A TWOPLEVEL TITLE) HAS BEEN KEIMPLEMENTEDs THIS IS 
PARTICULARLY USEFUL IN PRINTING THE CONTENTS OF THE AUDIT 
FILES. 

o2a4de DEAD LIST ELEMENTS 

aenae eae Sn S288 G28 8 GH G46 
DEAD EIST ELEMENTS ARF NO LONGER PHINTEDs 

eeede CARDD TO CARD 
THE CARD REAQER FILE FORMERLLY KNUWN AS CAROD HAS BEEN 
RENAMED CARD FOUR CUNSISTENCY WITH OTHER PORTIONS OF THE 
DM SYSTEM. 

oee6s "N1Sk* SYNTAX DETMPLEMENTATIUN 
THE NOISE WORD "LDISK* AS INPUT HAS BEEN DEIMPLEMENTED (Te 
Ees DISK <DB NAME>/0027 15 NU LONGER VALIU). 

Yoeele IMPROPER DATA ERROR 
AN ADDITIGNAL ERROR MESSAGE WIkL CATCH SOME OF THE 
POSSIBLE SYNTAX ERRORS OF THE USER (FOR EXAMPLE» FILENAME 
TOU CONG» USE OF NEIMPLEMENTED “DISK® SYNTAX» MISSING 
SLASH). 
Yresgs SOL REPON! 
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SEVERAL ADDITIONS AND MODIFICATIONS HAVE BEEN MADE TO THE 
SDL REPORT. 


le IF THE POPULATION OF A SET WAS # (CToeEus 
VARIABLE)» THEN MAXIMUM PRPULATION WILL PRINT AS 
WVARIABLE™ INSTEAD OF "NOT SPECIFIEU®, 


2e¢ “RANDOM INDEX" FOLLOWED BY "PRESENT" OR “NONE 
REPLACES "PRIME INDEX" WITH "RANDOM" OR P NONE, 


3e DEVICE FIELDS ARE NOW INDICATED BY THE WORD 
MNEMONIC (ITsba» DISK UR DISKPACK VERSUS 1 OR 17) 
RATHER THAN RY INTETERS AND HAVE BEEN INCLUDED 
WITH EACH STRUCTURE RELATED TO A DEVICE, 


4s LINK COUNT ITEM NUMBER AND THE DUNT@BLOCK*THIS#@ 
FILE BIT ARE RECENT ADDITIUNS TO THE SOL REPORT ON 
A FILE 


96 COLUMNIZA TON IN NDEX@SEQUENTIAL 


Z see asaeetauunae Se eG geeeneunnese ®ee 


THE UNALIGNED COLUMN PROBLEM FUR THE INDEX*SEQUENTIAL 
TABLES HAS BEEN CORRECTEL. 


DO0265 OMPRINTIT ©* OMFRINTIT © CARD FILE * 02°19%73 


THe CARO FILE FOR SYSTEM/OMPRINTIT HAS BEEN CHANGEU FROM CARDD TO 
CARD. 


EXAMPLE? 


PRUN SYSTEM/DOMPRINTIT 
Q?DATA CARD 


e 4 


PEND 
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OCALGOL 


DOs “-DEALGOL” “s DCREGCL QUEUE ATTRIBUTED: (c ateseets 

SIMILAR TO TASK AND FILE ATTRIBUTES» QUEUE ATTRIBUTES MAY BE 
APPLIED TO ANY QUEUE OR QUEUE ARRAY ELEMENT. ILLEGAL ATTHIBUTE 
REFERENCES, SUCH AS ATTEMPTING 10 SET A READ@ONLY ATTRIBUTEs WILL 
KESULT IN A SYNTAX ERROR OR KUN@TIME EKRUK MESSAGE DISPLAYED ON THE 
CONSOLE AND ENTERED IN THE SYSTEM LOW. IN THE LATTER CASE» THE 
PRUGRAM WILL NOT BE TERMINATED, THE FULLOWING 1S A DESCRIPTION OF 
GUEUE ATTRIBUTES AND THEIR MEANINGS? 


be GQACTIVE. BOOLEANs READ/wWRITEs 


THIS ATTRIBUTE RETURNS THE CURRENT ACTIVE STATE OF A 
QUEUE. SETTING THIS ATTRIBUTE TRUE EXPLICITLY 
ACTIVATES THE QUEUE. SETTING IT FALSE DEACTIVATES THE 
QUEUE AND FLUSHES ANY MESSAGES CURRENTLY IN THE QUEUE. 
THIS ATTRIBUTE IS INITIALLY FALSE. 


2e QMEMORYLIMIT. INTEGERs READ/WRITEs 


THIS UVEFINES THE MAXIMUM VALUE THAT THE ATTRIBUTE 
QMEMORYSIZE CEXPLAINED BELOW) MAY ACHIEVE BEFORE DISK 
TANKING IS  INVOKEDe THE MAXIMUM VALUE OF THIS 
ATTRIBUTE IS 2*16°1 UR 65535. SETTING THIS ATTRIBUTE 
TG ZERO CAUSES ALL MESSAGES TO BE TANKEDs QMEMORYLIMIT 
MAY BE CHANGED AT ANYTIME WITH THE FOLLOWING RESULTS! 


Le IF THE VALUE 1S INCREASED» NU ATTEMPT WILL BE 
MADE TU DETANK ANY MESSAGES IN ORVER TO RAISE 
QMEMORYSIZE TU THE NEW LIMII. 


2. TF THE VALUE IS DECREASED» NO ATTEMPT WILL BE 
MADE TO TANK ANY MESSAGES IN URVER TO LUWER 
QMEMORYSIZE TO THE NEW LIMIT. 
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QMEMORYSIZE. INTEGER. REFAD@ONLY. 


THIS ATTRIBUTE REFLECTS THE CURKENT SIZE IN WURDS OF 
THE RESIDENT PORTION OF A QUEUE. THIS IS THE SUM OF 
TRE SIZES OF EACH COMPLETE MESSAGE AREA IN THE QUEUE 
PLUS ONE WURD (A LINK WORD) FOR EACH MESSAGE, 


QSIZE. INTEGER. READ@ONLYs 


WSIZE IS THE SUM OF THE SIZES OF EACH MESSAGE IN THE 
QUEUE BOTH IN MEMURY AND ON DISK. JTHIS INCLUDES THE 
MESSAGE AREAS ONLY AND NOT THE MESSAGE LINK WORDS. 


QMESSAGECOUNTs INTEGERs READ@ONLY. 


THIS IS THE TOTAL NUMBER OF MESSAGES IN THE QUEUE» 
INCLUDING ANY WHICH HAVE REEN TANKED. 


QUSERCOUNT. INTEGER»  READ@ONLY. 


THIS REPRESENTS THE NUMBER OF INDEPENDENT USERS OF A 
QUEUE. QUSERCOUNT IS INCREASED BY ONE WHEN THE QUEUE 
TS PASSED "BY VALUE" TO A PROCEDURE» AND DECKEASED BY 
ONE WHEN EXITING THAT PROCEDUREs QUSERCOUNT CAN ALSO 
BE ALTERED WITH THE ATTACH FUNCTIUN. GIVEN THE 
EXAMPLES 


ATTACH(Q1502)3 


Q@1sQUSERCOUNT IS REOUCED BY ONE 
Q2.Q@USERCOUNT IS INCREASED BY GNE 


QTANK.s BOOLEANs READ/WRITE. 


QTANK IS TRUE IF A PORTION OF THE QUEUE IS CURRENTLY 
RESIDENT UN DISK, AND IS FALSE IF THE ENTIRE QUEUE IS 
IN MEMORY. SETTING THIS ATTRIBUTE TO TRUE CAUSES ALL 
MESSAGES CURRENTLY IN MEMORY TU Bk TANKED TO OISK. 
SETTING QTANK TO FALSE IS AN ERROR. 


QINSERTEVENTs EVENTs READ@ONLY. 


_ THIS EVENT IS CAUSED EACH TIME A MESSAGE IS INSERTED 
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A QUEUE VIA THE INSERT OR COMBINE FUNCTION, AND IS 

WHEN THE LAST MESSAGE 1S REMOVED FROM THE QUEUE 
HE REMOVE», HOLD OR FLUSH FUNCTIONe THIS EVENT MAY 
SED AS ANY OTHER EVENTs IT SHUULD BE NUTED THAT 
ZING QINSERTEVENT 15 FAR MORE EFFICIENT THAN 
ING THE HOULD INTRINSIC, THE FULLUWING CODE 
LE IS EQUIVALENT TO HULDCMSGs)! 


HILE REMUVECMSG»Q) = o OO 
AITCQQINSERTEVENT )3 


S wnOw PUSSIBLE TO CONSTRUCT MORE COMPLEX HOLD 
MENTS 


ASE WAITCC2)°Q.QINSERTEVENTSEJ*1 OF 
BEGIN 
’ %@ 2 SECONDS HAPPENED 
S 3@ REMOVE(MSGsQ)3 
s ® EVENT "E® HAPPENED 
END3 


SIZE. INTEGER.» READONLY. 


IS THE SIZE OF THE FIRST MESSAGE IN THE QUEUE» UR ZERO 
HE QUEUE IS EMPTY. 
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UCPPRNGEN 


rm a ee a ae 

THIS PATCH ADUS A NEW BIT VARIABLE» "SYNCS", WHICH MAY BE SET» 
RESET» OR TESTED. THE BIT DESIGNATED IS BIT ZERO OF THE TYPEFIELD 
(THE INHIBIT SYNC EDIT BIT). NOTE! ASYNCHRUNOUS LINE REQUEST SETS 
WILL TREAT B1T TESTS AS FALSE AND WILL NU*OP BIT SETS OR RESETS FOR 
THIS BIT VARIABLE. 


volge OCPPROGEN = DIALOUT ERRUR RESULTS . 12"08572 
FOR ERROR RESULTS AS A RESULT OF DIAL UUT REWUESTS» THE FOLLOWING 
INFORMATION IS GIVENS 


Le MSG(0}).£39%816) CONTAINS AC AI AT TImE OF DIALOUT 
ERROR. 


26 MSG011.039398) CUNTAINS THF REASON FOR TERMINATIONS 


#> DLO TRUE 

=> ERROR TRANSMITTING DIGITS 

=> ERROR TRANSMITTING EON 

=> TIME QUT WAITING FUR COS => TRUE 

z> UNEXPECTED INTERRUPT WAITING FUR CUS *> TRUE 
3> UNEXPECTED INTERRUPT WAITING FUR CU @> TRUE 
a> TIME OUT WAITING FOR CC => TRU, 


Nn oO UW fF WwW NH 
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DUSTATUS 


vOzZ5U UCSTATUS = SYSTEM DUSTATUS = 02919973 


eee obec eee 

THe SYSTEM/DCSTATUS PRUGRAM ALLOWS ONE TU PERFORM AN ANALYSIS OF 
THe CURRENT KUN@TIME STATE OF THE B6/00 LATACOM SUBSYSTFMs THE 
PRUGRAM MAKES USE OF THt OCSYSTFMTABLES INTRINSIC TO GAIN ACCESS TO 
TABLES MAINTAINED BY THE MUP CAND OCP)» ANU TU PERFORM A RUN®@=TIME 
SNAP SHOT ANALYSIS OF THEM. AS SUCH» THE PROGRAM FURMS AN EXAMPLE 
UF THE WAY IN WHICH THE UCSYSTEMTABLES INTRINSIC MAY BE USED. 


SELECTION GF OUTPUT UPTLONS 

THe PROGRAM MUST BE SUPPLIED WITH AN UPTION LIST WHICH SPECIFIES 
THUSE ELEMENTS OF THE DATACUM SUBSYSTEM WHICH ARE REQUIRED TO BE 
ANALYZED. THE UPTIONS ARE SPECTFIED UN A HIERARCHIAL BASISs10E. 


(A) ANALYSIS FOR A STATION ONLY. 

(8) ANALYSIS FOR ALL STATIONS GN A LINE 
(C) ANALYSIS FOR ALL LINES ON A CLUSTER. 
(CD) ANALYSIS FUR ALL CLUSTERS ON A UCP, 

CE) ANALYSIS FOR ALi DCP S 


THE HIERARCHIAL ITEM 1S SELECTED BY USING THE KEY HORDS ALL» OCP,» 
GLUSTER», LINEs OR STATION» EACH HIGHER URDER ITEM 1S INCLUSIVE OF 
ALL LOWER ORDER ITEMS. THUS IF A CEUSTER IS SPECIFIED» THEN THE 
ANALYSIS IS PERFURMED FUR ALL STATIONS ON ALL LINES UN THAT CLUSTER. 


ANALYSIS OUTPUT FROM THE PRUGRAM WILL NORMALLY BE SENT TO A SITE 
LINE PRINTER HOWEVER» THE PROGRAM WILL DETECT IF THE PRINTER FILE 
45S LABEL EFWUATED TO REMUTEs FOR THIS CASk» THE OUTPUT FORMAT IS 
MOU{FIED SO THAT THe OUTPUT WILt FIT A 72 CHARACTER LINE WIDTH. 


SYNTAX OF OPTIUNS 
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<OPTIONS> &s2<UPTION LIST> 
<OPTION LIST>222<SUuBSYSTEM SPECIFICATLUN>/ 
<SUBSYSTEM SPECIFICATIUN>3 <OPTION LIST> 
<SUBSYSTEM SPECIFICATION> 332 ALL/<UCP VESIGNATE>/TABLES/ 
<CLUSTER DESIGNATE>/<LANE DESIGNATE>/ 
<STATION DESIGNATE>/STERMINAL VESIGNATE> 


<UGP DESIGNATE>8tsDCP<I)CP NUMBER? 

<DOCP NUMBER> %3@<UNSIGNEUL INTEGER? 

<CLUSTER DESIGNATE>$3@CLUSTER <UCP NUMBER>»<CLUSTtR NUMBER> 
<CLUSTER NUMBER>82@<UNSIGNED INTEGEK>. 


<LINE DESIGNATE>tse_LINE <UCP NUMBER> » <LINE NUMBER?/ 
LINE <DCP NUMBER? » <CLUSTER NUMBERD>,<LINE NUMBER? 
<LINE NUMBER>82es<UNSIGNED I[NTEGER> 


<STATION DESIGNATE>8%# STATION <1SN> <NDL OPTIUN>> 
<15N 88 <EMPTY>/<LUGICAL STATION NUMBER> 

<NOL QPTION> 388s <EMPTY>/NOL 

<TERMINAL DESIGNATE>!8@ TERMINAL <REMUTE TYPE INDEX> 
<REMOTE TYPE INDEX>3 8a <EMPTY>/<UNSIGNED INIEGER>» 
<TABLES> ts@ TABLES 


SEMANTICS! 


<TABLES>OPTION 

THIS WILL PRODUCE A RAW HEXADECIMAL DUMP QF THE DATACOM CONTROLLER 
ANU OCP CLINE AND STATION TABLES. TAG BITS ARE OMITTED FROM THE 
DUMP, 


pobbeuc ton 

THIS WILL PRODUCE A COMPLETE ANALYSIS Ut THR DATACOM NETWORKs THE 
TABLES ARE DUMPED» AN ANALYSIS OF THE LINE AND STATION TABLES 
TOGETHER wITH AN ANALYSIS UF EACH REMUTE TYPE, ALL UTHER OPTIONS 
ARE SUBSETS OF THIS OPTIONe 


<OCP DESIGNATE>OPTION 
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Nu250 OCSTATUS = SYSTEM LCSTATUS . V2elge73 
TH1S WILL PRODUCE aA FULL ANALYSTS OF THE DESIGNATED UCP S LINES AND 
STATIONS. 4 
<CLUSIER DESIGNATE >UPTIUN 
THIS wlLL PRODUCE A FULL ANALYSIS OF THE DESIGNATED CLUSTER S LINES 
ANU STATIUNS. 


<LINt DESIGNATE >UPTIUN 
THIS wWILtL PRUDUCE A FULL ANALYSIS GF THE DESIGNATED LINE AND ITS 
OTATLUNS,. 


SoUa vibe Ges ionase sc tus 

IF <NUL QPTIUN> 1S EMPTY» THEN AN ANALYSIS GF THE TABLES MAINTAINED 
BY THE CATACUM CUNTROLLER IS PROOUCEN. JAF <LSN> IS EMPTY» THEN THE 
ANALYSIS IS PRUDUCED FUR ALL STATIONS. THAIS WILL INCLUDE THOSE 
STATLUNS WHICH ARE NUT CURRENTLY ASSIGNED TU A LINE® AND WILL THUS 
NOT BE ANALYZED UNDER THE DCP» LINE OR CLUSTER UPTIUNS. IF NDL IS 
SPECIFIED» THEN THE ANALYSIS IS PrRUUUCELD FROM THE NETWORK 
ANFORMATIUN FILE» RATHER THAN FRUM IN@CURE TABLES AND THE OCPCODE 
tILE»s ANU CONTAINS THE NUL OFCLARATIONS FUR THAT STATION. THESE 
MAY NUT BE THE CURRENT ATTRIBUTES uF THE STATION, BECAUSE 
MOUVIFICATIONS MAY HE MADE AT RUN@TIME VIA DCWRITES. 


STERMINAL DESTUNATE> OPTION 
THE NUL SPECIFICATIUNS OF TERMINALS IS FROUVUCED bY THIS OPTION. 
THIS INFORMATION IS RETRIEVED FROM THE NETWORK INFORMATION FILE. 


THE <REMOTE TYPE INUEX> IS THE INDEX USEL BY THE DATACOM CONTROLLER 
INTO A TABLE WHICH DESCRIBES EACH TERMINAL SPECIFIED IN NDLe IN 
PHYSICAL TERMS» TERMINALS ARF NUMBERED IN THE SEWUENCE IN WHICH 
THEY APPEAR IN THE NOL SPECIFICATION UF THE NETWORK. 


RUNNING INSTRUCTIONS 


THE PRUGRAM 1S CUMPILED AS A PROCEDURE WITH AN ARRAY AS A PARAMETER. 
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THE OPTION LIST IS PASSED TO THE PROGRAM VIA THIS ARRAY. 


yo COMPILE THE PROGRAMS = 
? COMPILE SYSTEM/DCSTATUS DCALGOL LIBRARY 
? DCALGOL FILE TAPE (TITLE = SYMBUL/DCSTATUS) 
2 UATA 
$ MERGE INSTELLATION 
$ SET LEVEL 2 
(THE $ CARDS) 
VEND 
TO EXECUTE THE PROGRAME= 
? EXECUTE SYSTEM/DCSTATUS ("<UPTIONS>") 
? END 
EXAWPLES§ 
? EXECUTE SYSTEM/DCSTATUS ("LINE O» 23 CLUSTER O» 4") 
? END 


THiS WILL CAUSE OUTPUT TO BE SENT TO A SITE LINE PRINTER. 


? EXECUTE SYSTEM/DCSTATUS ("ALL") 
9 FILE CINE CLTITLE 2 M3325 KYNO & REMUTE) 
? END 


THIS WILL CAUSE THE OUTPUT TU BE SENT TU A REMOTE STATION NAMED 
M3326 


MISCELLANEQUS INFORMATIUN 


SYSTEM/UCSTATUS MAY BE CALLED NIRECTLY FROM SYSTEM/MCSII USING THE 
UP CUNTROL STATEMENT. OUTPUT MAY BE DIRECTED TU A SITE LINE 
PRINTER OR TO THE REMUTE DEVICE UN WHILH THE CUMMAND WAS ENTERED. 


AF SITE «IS USED. ANY NUMBER OF COMMANUS MAY BE ENTERED 
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DSIMULTANEQGUSLY GUUTPUT BFING DIRECTED 10 A SITE LINE PRINTERs IF 
REMOTE {£5 USED» THEN UUTPUT WILL BE DIKECTED TO THE REMOTE DEVICE 
UN wHICH THE OP COMMAND WAS ENTERED» IT MUST BE NOTED THAT IN 
REMOTE MODE» ONLY UNE CUPY UF NCSTATUS MAY BE RUN AT A TIME. CARE 
SHOULD BE TAKEN WHEN USING THE REMOTE OPTION» AS SYSTEM/DCSTATUS 
WILL NECESSARILY PRUDUCE VOLUMINOUS UUTPUT FUR THE ALL,» UCP AND 
CLUSTER OPTIONS» ANU IT IS NUT POSSIBLE TO TERMINATE A PROGRAM FROM 
A REMOTE WHEN USING SYSTEM/MCSIT. 


1T SHOLLD BE NOTED THAT THE DATACOM STATUS INTRINSIC DOES NUT LOCK 
THe VARIOUS MCP TABLES THAT IT ACCESSESe IT IS THEREFORE POSSIBLE 
THAT ThE CUNTENTS OF THE TABLES MAY CHANGE WHILE THE INTRINSIC IS 
RUNNING, IN PARTICULAR, SOMF FLAGS MAINTAINED IN THE TABLES ARE 
SET [IN A TRANSIENT MANNEKs IT WILL THEREFORE BE A CUINCIDENCE ONLY 
THAT A RUN OF DUSTATUS CATCHES THEM SETo 


DYOTEM/DOCSTATUS WILL ONLY RETURN MEANINGFUL INFORMATION IF DATACOM 
[S INITTIALIZED.e IF DATACUM IS NOT INITIALIZED THEN UCSTATUS OUTPUT 
WILL INUICATtE SUCH A SITUATIUNe 


AFo HOWEVER SYSTEM UPTION NUMBER 120 AUTUDC IS SeT TRUE» THEN A RUN 
UF SYSTEM/NCSTAIUS WILL CAUSE AN IMMEVIATE INITIALIZATION UF THE 
VDATACOM TABLES» AND INFURMATION RETURNED WILL BE MEANINGFUL. USING 
THIS MODE UF UPERATIUN», NO NCP S WILL wE FIRED UF» AND TO START 
WATACOM ACTIVITY A FURTHER DC CDCP NUMGER) MUST BE ENTERED ON THE 
SPu, NOTE ALSU THAT THE OATACUM TABLES WILL REMAIN INITIALIZED 
AFTER TRE DCSTATUS RUN» TO RETURN THIS MEMORY ARLA TU THE SY&STEMs A 
UCP MUST Be FIRED UPs, ANU THEN NS@“ED, 
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ESPOAL 


vO140 ESPOL =“ EVENTS IN ESPOL = 10°16"72 

AN EVENT MAY BE DECLARED "BY VALUE" IN A QUEUE DLECLARATIONs IN 
WHiCh CASE THE EVENT ITSELF CA DOUBLE FPRECISIUN WORD) IS INSERTED 
IN THE QUEUE STRUCTURE. 


The EVENT INTRINSIC MAY BE USED ANY FLACE IN THE SYNTAX THAT AN 
EVENT MAY BE USED. THE SYNTAX IS! 


EVENTC<SUBSCRIPTED VARIABLE>) 


THE “<SUBSCRIPTED VARIABLE> MAY BE UF TYFE WOKDs REAL» BOOLEAN» OR 
VUUBLE. THIS FUNCTION CAUSES AN *"XTND" TO BE DUNE ON THE INDEXED 
VESCRIPTOR, 


v0166 ESPOL * NON®SAVE DECK OUTPUT = 10°23*72 
THiS PATCH ALLUWS NUN®@SAVE SEGMENTS ANU ARRAYS TO BE PUNCHED VIA 
THe $ DECK OPTION. 


THESE CARDS (CIN STACKER 2) ARE PUNCHED IN EBCUDIC» WATHOUT TAGS» UP 
TO 12 WOROS/CARDS. THEY ARE PRECEDED BY A WURD WHICH HAS MOM*ADUR, 
IN (45216), INDEX UF THE FIRST WORD IN 031816], LENGTH OF THE CARD 
IN (438121), AND 4"F" IN (4784), 


D024) ESPOL © ESPOL DULLAR UPTIONS = 11°06°72 


ESFOQOL OULLAR OPTIONS MAY BE SET EQUAL TO AN <UPTIUN EXPRESSION>. 
PREVIOUSLY, ONLY USER UPTIONS,», OPTIONALLY PRECEDED BY A "NOT%» WERE 
RECOGNIZED, 


THE SYNTAX FOR THIS IS AS FOLLOWS? 
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SET <UPTIUN> ® <UPTION EXPRESSIUN> 
cee tL ON EXPRESSIUN>3%t=2 <OPTION SECONDARY>/ 
<OPTION EXPRESSION><BOULEAN OPERATOR> 
<UPTION SECUNDARY> 
<OPTION SECONDARY>82= <OPITON PRIMARY2/NUT <OPTION PRIMARY> 
<UPTION PRIMARY> 882 <UPTIUND/ 
<COMPILE TIME VARIABLE 
<€RELATIUNAL UPEKATOR><UNSIGNEUD INTEGER>/ 
(<OPTION EXPRESSIUN>) 
<OPTION> 282 <STANDARD OPTION>/<USER OFTIUN> 


FUR EXAMPLE 
$ SET KLUDGE * EXPERIMENTAL OR UPTM AND NOT FUNNY 
$SET OMIT # NUTCUPTM EGV SUPEROP) 


|THE STANDARD RULES OF PRECEDENCE FORK BWOLEAN UPERATIONS ARE 
UBSERVED» THE RELATIONAL UPERATORS MUST BE THE SPECIAL CHARACTER 
VARIETY. THE “DECLARATION” AND USE GF USER UPTIONS ARE NO LONGER 
ASSOCIATED WITH THE BLOCK STRUCTURE OF ESPOL» “NO OPTION ACTION" § 
CAKDS» Lebo» $ CARDS WHICH USED TO CAUSE STANDARD OPTIONS TO BE 
CLEARED», NOW CAUSE ALL OPTIONS TU BF CLEARED. 


UOe4e ESPOL © PROCEDURE DeECLARATIUN = 11°06e72 

THE SYNTAX FUR CUNTROLLING THE SEGMENTATION AND STATE OF PROCEDURES 
HAS BEEN EXTENDELse ON PAGE 7#29 OF THE JUNE 1972 B6700/B7700 ESPOL 
INFURMATION MANUAL» REVISE THE SYNTAX UF PROCEDURE DECLARATION TO?8 


<PROCEUURE DECLARATION>32® <SAVE PAKT><PRUCEDURE IYPE>PROCEDURE 
<PROCEDUKE HEAVING><PRUCEDURE BODY> 

<SAVE PART>tte <EMPTY>/SAVE/SAVE 1/<RESIDENCY PART><STATE PART> 

<RESIDENCY PAKT>&88s <EMPTY>/RESIDENT/INITIALIZATIUN 

<STATE PART>382 <EMPTY>/CUNTROUL 


IHE "RESTDENT™ DECLARATOR INHIBITS SEGMENTATIONS “INITIALIZATION” 
IMPLIES RESIDENCY IN SEGMENT ONE. THE <RESIDENCY PART> HAS NO 
EFRECT ON STATE. THUS! 
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MSAVE® [S EQWIVALENT TO *"RESTOENT CONTROL” 
"SAVE 1 [S EQUIVALENT OT "INITIALIZATION CUNTROL” 


SCeSs ESEGE ESE XEUNENTI ATION & OUGIIEEIOAIN: 2 acceecee 

THE SYMBOLS FOR EXPONENTIATIUN AND MULTIPLICATION HAVE BEEN CHANGED 
TO THOSE OF ALGOL. ONLY THE MEANING OF THE ASTERISK HAS BEEN 
CHANGEDS THE OLO MULTIPLY SIGN IS STILL ACCEPTED FOR MULTIPLICATION. 
THE NEW DOLLAR OPTION "OLDEXPO" MAY BE USED TO CAUSE THE ATERISK TO 
BE RECUGNIZED AS THE EXPONENTIATION SYMBUL.s 


SYMBOL HEANING 
x MOLTIPLICATIUN 
w MULTIPLICATIUN CIF OLDEXPO IS RESET) 
7 EXPONENTIATION CIF OLDEXPO 1S SET) 
al EXPONENTIATION 


DOZ44 ESPOL © THE WORD INTRINSIC “STFE" © 12=0472 
A LABEL WHICH HAS HAD A PCW GENERATED FUR IT CAN bE USED AS AN 
ARGUMENT IN THE STFF INTRINSIC. 


vOe45 ESPOL = POINTER EXPRESSIONS - leelie?e 
THe OEFINITION OF <PUINTER PARAMETERS> UN PAGE 9°20 OF THE JUNE 
1972 ESPOGL LANGUAGE MANUAL SHOULD BE EXPANDED AS FOLLOWS: 


<POINTER FPARAMETERS> 83s <ARRAY PART>/<ARRAY PART>» 
¢ CHARACTER SILt>/<STRING> 
<CHARACTER SIZE>ts8s 4/6/6/%/<POINTER EXPRESSIOND 


The <STRING> MUST BE LOUNGER THAN 46 BITSe ITS MAXIMUM INTERNAL 
GHARACTER SIZE DETERMINES THE CHARACTER SIZE OF THE REAU*OUNLY 
PUINTER, 
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THE <POINWTER EXPRESSIUN> PART OF <CHARACTER SIZE> IS USEFUL FOR 
SETTING THE CHARACTER SIZE OF UNE POINTER TO THAT OF ANOTHERs THIS 
FEATURE HAS BEEN AVAILABLE FOR SUME TIME» THUUGH UNDUCUMENTEDe 


yo279  ESPUL ft MRITEAFTER uOLLAR OPTLON 7 O37u773 

A ““WKITEAFTER® DOLLAR UPTION HAS BEEN PRUVIDEO In ESPOL. IT IS 
INTENDED fO0 BE USED FUR ESPUL INSTALLATION INTRINSICS THAT ARE 
CALLEUL BY FORTKAN PROGRAMS. TF THE UPTION IS SET» ALL NONSUIRECT 
AvuUS TQ PRINTER FILES wWILL RE DONE IN THe FORTRAN MANNER®s LoEos 
SPACING IS DUNE BEFURE PRINTING. (SEE 00253 FUR ALGUL.s) 
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ESPOL INTRINSICS 


v0150 ESPOLINTRN = NEW FORMATTER «= Oye05e7e 
THiS NOTE REPLACES P0505 IN THE MARK I1s3 SOFTWARE IMPROVEMENTS 
UGCUMENT AND REPLACES 00129 IN THE MARK I1e2 SYSTEM MISCELLANEAs 


A NEW SET OF FORMATTING INTRINSICS HAS BEEN WRITTEN FUR FORTRAN, 
WITH NECESSARY CHANGES MADE IN THE FURMATTER» PREEFIELUD INTRINSICS, 
BINARY I/U INTRINSIC, AND FORTRAN COMPILERs THESE CHANGES HAVE 
BEEN MADE IN A MANNER THAT SHOULD BE TRANSPARENT TO USERS» BUT 
RESULT IN FASTER I/U EXECUTIUNe 


THE GREATEST IMPROVEMENT SHUULD BE NOTICED IN FURMATTED I/O. 
BINARY 1/0 PREVIUUSLY WAS CHANGED TO DECREASE EXECUTION TIME. MORE 
INTENSIVE STUDY WILL BE MADE OF THE FREEFIELD INTRINSIC ON FUTURE 
RELEASES. IN ADDITION» IT IS ANTICIPATED THAT ALGOL WILL BE 
ADUPTED TO THE NEW I/0 FURMATTING INTRINSIC UN FUTURE RELEASES, 


THE FORMATTING INTRINSICS ARE REDESIGNED TO BE LIST URIVEN RATHER 
THAN FORMAT ORIVEN. STURAGE REQUIRED IS TAKEN IN THE STACK 
WHENEVER POSSIBLE, THERE ARF SEPARATE INTRINSICS FOR INPUT ANDO 
UUIPUT BECAUSE THE INTRINSICS AKE SPECIFIC TO FORTKAN AND BECAUSE 
THEY ARE SPECIALIZED TO INPUT OR OUTPUT. THE NUMBER OF TEST 
DECISIONS REQUIRED HAS BEEN SIGNIFICANTLY REDUCEL. 


UN INPUTS 
le DOUBLE PRECISION IS FULLY IMPLEMENTED FOR ALL FORMAT 
PHRASES. 


26 "0" AND "2" FORMATTING IS DUNE AS IT 1S IN THE DATA 
STATEMENT. 

Je IN FIM, POF, Z2","D9,"EM, AND SF FORMATS», LEAOINGs 
TRAILING AND IMBEDDED SPACES ARE CUNSIDERED ZEROS ON 
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INPUT. 
Ge THE MEANING OF THE ERROR NUMBERS FOR INPUT ARLE 


FORMAT ERRUR 
201 = INVALIU DATA FOR "I* FORMAT. 
207 = INVALID DATA FOR "0" FURMAT. 
203 * INVALID DATA FOR "Z" FORMAT. 
204 © INVALID DATA FOR "L* FURMAT. 
205 © INVALIU LATA FOR ME*,"Ft, GR "DO" FORMAT. 
206 © MISSING DECIMAL PLACES SPECIFICATION= "V" FORMAT 
207 © MISSING WIDTH SEPCIFICATIUN®"V" FURMAT 
208 = INVALID PHRASE CnovEe"v" FORMAT 
209 @ [NPUT VALUF TOO LARGE FUR LIST ELEMENT 
210 = ATTEMPTED TU EXCFED THE END OF THE INFUT RECORD 


Se IF A DATASERROK LABEL IS PRESENT ON THE READ STATEMENT 
THE PROGRAM WILL NOT RE DOSED,» BUT WILL CONTINUE TO THE 
DATA*ERKOR LABEL WHERE THE FURMAT ERRUR NUMBER WILL BE IN 
FIELONC24%6) UF THE I/U RFSULT WURD. 


ae ae 


[Ht NEW FORTRAN UUTPUT FORMATTER HAS A FEW FEATURES AND AREAS OF 
UIFFERENCE FROM THE CURRENT LIe3 FURKMATTER» THEY ARE AS FOLLOWS! 


Ly CARHIAGE CONTROL FEATURES 

THe 42.3 FURMATTER WHEN COMPILED WITH THE NEW DOLLAR OPTION 
"SHIFTFIRSTCHARACTER™ SET PRODUCES AN INTRINSIC WHICH BEHAVES 
EXACTLY aS THE Ife? FORMATTER WITH RESPECT TO CARRIAGE CONTROL (SEE 
PAGE 12°16 OF THE FORTRAN REFERENCE MANUAL 5000458 FOR A CUMPLETE 
VISCUSSSIUN UF II.e2 CARRIAGE CONTROL). 


THe 1.3 FORMATTER WHEN COMPILED WITH THIS NEW DOLLAR OPTION RESET 
CIT IS RESET BY DEFAULT)» PRODUCES AN INTRINSIC WITH SLIGHTLY 
UIFFERENT CARRIAGE CONTRUL! 


Ae ThE FIRST CHARACTER UF THE BUFFER WILL NEVER BE PRINTEDs 
HOWEVER» IT WILL BE INTERPRETED EXACTLY AS IN I1e2 WITH 
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RESPECT TU CARRIAGE CUNTRUL EFFECT. 


be THE Ile3 FURMATTER WILL ALWAYS ALLOCATE AN EXTRA 
CHAHACTER OF BUFFER WHEN GOING TU PRINTER OR PRINTER 
BACKUP. THUS» A 22 WUKD EWCDIC BUFFFR HAS 133 CHARACTERS. 
THE FIRST CHARACTER IS NFVER PRINTED» AND THE SECOND THRU 
133RD CHARACTERS COMPRISE IHE PRINT LINE» STARTING aT 
PRINT PUSITION ONE. THE UNPRINTED FIRST CHARACTER 
CONTROLS THE PRINTER CARRIAGE IN THE SAME MANNER AS I]e20 


THe 1.63 FORMATTERK PRODUCES E*xX AND L#xX FOR THE EXPONENT PART 
INSTEAD OF E xX AND OD XX» WHEN USING THE E AND D FORMATS, 
RESPECTIVELY. ALSU,s, THE ZEKO (0) TO THe LEFT OF THE DECIMAL POINT 
HAS BEEN DELETED» AND THUS THE FIELD WIDTH REQUIREMENTS ARE REDUCED 
BY ONE CHARACTER. FINALLY» THE ONLY DIFFERENCES BETWEEN EWeD ANDO 
UWeD ARE THAT ONE USES AN “Et AND THE UTHER» A "D"» AND THE EW.D 
RUNS FASTER FOR SINGLE PRECISION VALUES. 


je QUUBLE PRECISION HANDLED BY ALL FORMATS$ 
DUUBLE PRECISION VALUES ARE NOW HANDLED CORRECTLY BY ALL FORMAT 
SPECIFICATIONS.» IN PARTICULAR» 


Ae FOR Osh VALUES EDITED UNUER THE LW SPECIFICATION, THE 
LOWER ORDER BIT OF THE MORE SIGNIFICANT WORLD IS USED TO 
DETERMINE THE TRUTH VALUE. 


Be THE AW AND CW SPECIFIERS CAN NOW EDIT UP TO 12 CHARACTERS 
USING DeoP. VALUES. FOR EXAMPLES 


QOOUBLE PRECISION v1 
DATA VI/S*"ABCUEF GHIUKL*/ 
10 FORMAT (ixXsAW) ‘ 
PRINT 10.01 
WOULD YIELD 
AUCOEFGHIUKL IF W = 12 
AGCOUEF GH IF we 6 


, | | . ; 
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Au IF we 2 
ABCUEFGHIJKL IF Ws 15 
AND THE USE OF Cw INSTEAD UF AW IN THE ABOVE WOULD YIELD 


ANCUEPGHIJKL 1F we 12 

EF GHIJUKL IF we 

KL IF w® 2 
ABCLEFGHIJKL If we 15 


01 1S REPRESENTED INTERNALLY AS! 


HIGH HALF LOW HALF CHARACTERSIZE 
WABCUEF® "GHIJKL® EBCDIC 
"QUABCUEF" "OOGHIJKL*™ BCh 


Ce THE OW AND ZW SPECIFIERS CAN NUW BE USED TO DISPLAY A DoP. 
VALUE @ BUTH WORK FROM RIGHT TU LEFT ON THE U.P. VALUE. 
FOR EXAMPLE» 016 AND 212 WOULD EDIT THE LOW HALF OF A DaPo 
VALUE» WHILE O32 AND Z24 WOULD EVIT BUTH HALVES» AND 020 
ANU 215 WOULD EDIT THE LUWER URDER le BITS OF THE HIGH 
HALE AND THE ENTIRE LUW HALFe 


De DeoP. VALUES EVITED BY THE EWeD AND DW.D SPECIFIERS CAN 
HAVE 25 356 OR 5 DIGIT EXPUNENTS+ THE MINIMUM NUMBER OF 
DIGITS REQUIRED 1S USED. FUR EXAMPLE» JHE SPECIFIER E21. 
10 WOULW YIELD (FUR SUITABLE INTEKNAL VALUES)! 


".12345678691E°88 
o98765432104+A76 
031415296539E+09152 


THe SAME HOLDS FOR 021.105 WITH A "UO" USED FORK THE “E", 


aioe oe cecet eee. 

THe SIGN OF A VALUE IS CUNSIVERED POSITIVE IF THE MANTISSA PART IS 
ZERG. REGARULESS OF THE CONDITION UF THE SIGN BITse A MINUS O MAY 
BE UUTPUT, EsGer 9000000» BUT THIS ONLY INUICATES THAT THE FORMAT 
SPECIFIER DID NUT ALLUW FUR THE DISPLAY OF ALL SIGNIFICANCFs EoGes 
THe VALUE MIGHT HAVE BEEN £0400000000132547698132. 
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un DIFFERENCES! 

THE NEW Jw SPECIFIER IGNURES THE W VALUE» AND OUTPUTS THE VALUE AS 
AN INTEGER CUNSTANT IN THE MINIMUM FIELO NECESSARY. SINGLE OR 
UUUBLE PRECISION VALUES OF ANY MAGNITUDE WILL BE HANULED CORRECTLY. 
FLOATING VALUES ARE ROUNDED. 


os RUN TIME UUTPUT ERROR MESSAGES? 
“IN ADDITION TO THE END*UF*FILFE AND PARITY ERROR CONDITIONS» THERE 
ARE 14 ERRUR CONDITIONS PERTAINING TO THE FORMAT/LIST ELEMENT 
ITSELF. 
ERRUR * ERROR CONDITION 
102 FORMAT WAS V_ SPECIFIERs ANU LIST ELEMENT 
DIO NOT PRODUCE AN FoDotoGoloAsUsCodelols 
PsX» OR Te NOTE THAT ONLY THE RIGHI MOST 
CHARACTER OF THE LIST ELEMENT IS USED» THE 
LIST ELEMENT MUST BE SINGLE FRECISIONs 


1Q3 FORMAT WAS V SPECIFIER OF THE FORM RV» AND 
THE RESULTANT SPECIFIER NEEDED A FIELD 
WIDTH. FUR EXAMPLE® 2V => 216 


104 - FORMAT WAS V SPFCIFIER UF THE FORM RVs AND 
THE RESULTANT SPECIFIER NEEDED aA FIELD 
WIDTH AND DECIMAL PLACES» Eobeon 3V ®> 3Ey 


105 FORMAT WAS V SPECIFIER UF THE FORM RVWs AND 
THE RESULTANT SPECIFIER NERDED DECIMAL 
PLACES» EsGes 2V * B> OF 6. 


106 FORMAT SPECIFTIER EVALUATED TO FWD FURM, 
AND D «< U 

107 FORMAT SPECIFIER EVALUATEU TO EW.b OR Diol, 
AnO D «<1 


106 FORMAT WAS VV SPECIFIER» AND LIST ELEMENT 


vo150 


ERROR # 


109 


lie 
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ERROR CONDITION 
5 
USED TU EVALUATE SPECIFIER TYPE (CAsCoousETCs) 
wAS WOUBLE FRECISION. ONLY SINGLE 
PRECISIUN IS ALLOWED. 


FURMAT SPECIFIER EVALUATED TU GWe AND 
CURRESPUNDING LIST €&LEMENT WAS NEITHER OF 
TYPE INTEGER NOR TYPE LOGICAL (EXPRESSIONS 
OF TYPE INTEGER OR LOGICAL ARe EDITED UNDER 
G@WeD AS IW OR LWe RESPECTIVELY). 
THEREFORE» THE DECIMAL PLACES ARE 
CONSIDERED MISSING. 


<UNUSED> 


FURMAT SPECIFIER EVALUATED TO GW.D AND GWoD 
tUGIC CHUSE EweD BUT O « le 


FORMAT STATEMENT HAD NO FORMAT SPECIFIERS 
REQUIRING LIST ELEMENTS» AND FORMAT WAS 
USEO WITH A LIST. 


FORMAT SPECIFIER EVALUATED TO EWedD OR Dwade 
AND W LEG QD 


DYNAMIC w ORK ff) PART OF FURMAT SPECIFIER 
EVALUATEU TO A VALUE GREATER THAN THE 
MAXIMUM INTEGER ALLOWED» 549755613867 


DYNAMIC PART OF FORMAT SFECIFIER EVALUATED 
TO A VALUE GREATER THAN THE MAXIMUM REAL 
ALLUWEDs 46313591466734#10"868. 


ATTEMPTED RECURSIONS EVALUATIUN OF A LIST 
ELEMENT CAUSED A READ/WRITE/CLOSE ON THE 
CURRENT FILE. 


RECORD QVERFLUW! ATTEMPTEL TO FORMAT BEYOND 
END@UF*RECORD. 
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v0198 ESPOLINTRN © MAT INPUT CHAR CONTINUATION = oreisch ge ad 


Meee eee eae eee AU Gul teued) Coceemeeueen 7c clceouue 

IN BASIC THE AMPERSAND CHARACTER (IoEo» "&") CAN NOW BE USED TO 
INUICATE CONTINUATION OF DATA BEING SUPPLIED TO A "MAT INPUT® 
STATEMENT. 


EXAMPLE 3 


100 OIM ac15) 
200 MAT INPUT A 
300 END 


WHEN THE PROGRAM ABUVE IS EXECUTED THE "MAI INPUT" STATEMENT WILL 
CAUSE THE PRUGRAM TO WAIT UNTIL THE DATA FOR MATRIX "A® HAS BEEN 
SUPPLIED. IF ALL THE DATA FLEMENTS CAN NOT BE SPECIFIED IN ONE 
LINE (FROM REMOTE DEVICES) OR UNE CAKD (FROM BATCH MUDE) THEN USING 
THE AMPERSAND WILL INDICATE TO THE PROGRAM THAT MORE LATA IS TO BE 
SUPPLIEO. THE PRUGRAM WILL THEN CONTINUE TU WAIT FUR MORE DATA. 
FOX THE EXAMPLE ABOVE THE DATA MIGHT BES 


le 20 3 4e8 
52 Os 758 
6e 9 


[Ht PROGRAM WILL FIRST READ 16203 AND 4 INTU AC1)»6 AC2),6 AC3) AND A 
(4), WHEN IT SEES “&* IT LoUkS FUR MURE DATA ON THE NEXT INPUT 
RECORU AND ASSIGNS 566 AND 7 Th ACS)» Al6)» AND AC7). THE PROGRAM 
SEES ANOTHER “aK AND LUOQKS FOR MURE DATA ASSIGNING & TO ACA) AND 9 
TU ALD). THERE 1S NU AMPERSAND AFTER 9 SU "AY NOW CONTAINS ONLY 
NINE ELEMENTS .s CSEE SYSTEM NUTE 00197 ABWUT RESIZING OF VECTORS 
WITH “MAT INPUT" STATEMENTS») 


IHt AMPERSAND MAY BE USED TO CUNTINUE STRING DATA FOR STRING ARRAYS 
FILLED BY "MAT INPUT" STATENENTS AS wELL AS NUMERIC DATA AS IN THE 
EXAMPLE. IN EITHER CASE THE AMPERSAND MUST BE PRECEDED BY A COMMA 
UR BE THE FIRST ITEM ON THE INPUT LINES 


SETTING THE OPTION "QLOBASIC™ (SEE SYSTEM NOTE 00193) WILL VOID THE 
USE UF THE AMPERSAND AS A CONTINUATION CHARACTER. HUWEVERs IN THIS 


U0198 ESPOLINTRN = MAT INPUT CHAR CUNTINUATION = o1e15b$9& 138 


MUVE THE USE GF A CUNTINUATION CHARACTER IS NOT NECESSARY SINCE 
"MAT INPUT® STATEMENTS WILL CONTINUE TO LOUK FOR DATA UNTIL THE 
ARHAY 15 COMPLETELY FILLED CWHEN "OLDBASIC™ IS StT). 


voe7l ESPOLINTHN = K AND $ FORMAT MUDIFRSSFURTRAN 7 03°07°73 
THIS CHANGE IMPLEMENTS THe Kk AND $ FORMAT MODIFIERS FOR FORTRAN 
UUTPUT FORMATTING? 


le PLACING A $& NEXT TU AN EDITING*PHRASE CAUSES A $ TO BE 
INSERTED ADJACENT (COUN THE LEFI) TU EDITED DATUM. FoR 
EXAMPLE» 17.34 EVITED UNDER $F10e2 WUULD APPEAR AS #8888 
47634 CWHERE THE # STANDS FOR A BLANK)» IF THE $ CANNOT 
FIT WITHIN THE FIELUs ASTERISKS ARE INSERTED. 


2e PLACING THE LETTER K NEXT TO AN EVITING PHRASE CAUSES 
CUMMAS TU HE INSERTED BETWEEN DIGIT*TRIPLES TU THE LEFT 
OF THE DECIMAL PUINT.» FOR EXAMPLE, ©1234.56 EDITED UNDER 
KF1062 WOULD APPEAR AS #916234,563 1234567 UNDER KI10 
WOULD APPEAR AS #123405675 AND °987654 UNUER S5PKE2005 
WOULD APPEAR AS ###9°985765e¢40Q0U0E 701 CWHERE # STANDS FOR 
A BLANK). 


NOTE TRAT BOTH THE K AND $ MAY BE USED TUGETHER» EoGes KEF1I002 
WITH 1234656 WOULD PRODUCE #$102734656 (WHERE # STANDS FOR A BLANK)3 
SKP1LU0e2 ITS A VALID ALTERNATE FUORMs 


THESE TwO PHRASE MODIFIERS MUST BE ADJACENT TO THE EDITING PHRASE 
CUR AULVACENT TO A MODIFIER ADJACENT TU THE PHRASE)» EoGes 2K 81053 
P8RS$G20.6 ARE VALID BUT $245 IS IMPROPER. 


THe MUODIFIERS MAY NOT BE USFD FUR INPUT AND ALL SUCH USE CAUSES 
FORMAT ERROR #206 CINVALID PHRASE). THEY MAY BE USEL TO MODIFY ANY 
PHRASE COVE wHICH EVITS A DATUM, INCLUDING Veo 


vOZHU ESPOLINIKN ©@ BLANK FIELD ON FURMATTED INPUT © 0322873 


* BLANK FIELN ON FORMATTED INPUT © 03-5 4853 nae 


MODIFIED TU GENERATE AN 
teEsv AND G 


D0260 ESPUOLINTRN 


THe INPUT FORMATTING INTRINSTC MAY bE 
INTERNAL MINUS ZERU FUK A BLANK JNPUT FIELD FUR 15002, 
THIS IS DONE BY COMPILING THE INPUT FORMATTER WITH THE § 


PHRASES, 
INPUT 


UPTLON MINUSZEROFORBLANKFIELD SkT» ANU REPLACING THE 
FORMATTER IN THE INTRINSIC FILE BY BINDING. 


NEW FEATURES AND DUCUMENTATIUN CHANGES PAGE 140 


FURTRAN 


VO146 tURTRAN * FORTRAN UPTIMIZATIUN © 10*16"72 

A FORTRAN COMPILER THAT ATTEMPTS TU OPTIMIZE THE COVE EMITTED BY 
PRUGRAM FLOW ANALYSIS AND UTHER MEANS IS NUW AVAILABLEs INVUCATION 
uF THIS UPTIMIZATION IS BY USE OF THE DOLLAR CARD OPIIUN OPT IN THE 
STANDARD RELEASE FORTKAN CUMPILFR. 


UPT CURRENTLY MAY HAVE THREE VALIU VALUESS ®t» O» ANU le THE VALUE 
UF oPT MAY BE SET BY FOLLOWING THE WORD OFT BY AN OPTIONAL EQUAL 
21GN AND ONE OF THESE NUMBERS. ALTHOUGH THE VALUE UF OPT MAY BE 
CHANGED AT ANY TIME» A CHANGE FRUM ZERO UR #1 TO 1 OR» 1 TO ANY 
LUWER VALUE TAKES EFFECT ONLY AT THE THE BEGINNING OF A PROGRAM 
UNIT. CHANGING BETWEEN OPT VALUES UF O AND ©1 IN EITHER DIRECTION 
HAS EFFECT IMMEDIATELY. 


AN OPT VALUE OF 1 WILL ANVUKE OPTIMIZATIUNe TO SET THIS VALUE» THE 
FULLOWING EXAMPLE DULLAR CARD COULD BE USED! 
& uP?T = ji 


THe DEFAULT VALUE FOR OPT IS O38 THE VALUE @"1 HAS BEEN DESCRIBED 
PREVIOUSLY. IT 1S PRIMARILY INTENDED FUR NON®STANDARD PRUGRAMS 
THAT RELY UPON SIDt EFFECTS AND IS NOT LESTGNED FOR GENERAL USAGE, 


DUGPRUGRAMS ELIGIBLE FOR OPTIMIZATION 

NOT ALL PROGRAM UNITS ARE ELTGIBLE FOR OFTIMIZATIUN COPT#1).5 AND 
THUSE THAT ARE NUT WILL BE FLAGGED, THE FULLOWING PROGRAM UNIT 
FEATURES DiSwUALIFY OPTIMIZATIONS 


le A PRUGRAM UNIT CONTAINING ONE OK MORE ENTRY STATEMENTS» 


Ze A PROGRAM UNIT WHICH EQUIVALENCES ONE OR MURE INTEGER, 
REAL» UR LUGICAL VARIABLES UR ARRAYS TO ONE OR MORE 
DOUBLE PRECISIUN OR COMPLEX VARIABLE UR ARRAY 


: ; ES “Al 
00146 FORTRAN °* FORTRAN UPTIMIZATION * 10°16°72 nae sie 


30 A FUNCTION SUBPKOGRAM WHICH HAS A LABEL AS A FORMAL 
PARAMETER (DOES NOT APPLY TO SUBROUTINES) + ALSO» ANY 
PROGRAM UNIT WHICH REFERENCES A FUNCTION THAT HAS A LABEL 
AS A PARAMETER. 


4s A PROGRAM UNIT THAT CONTAINS A NAMELIST. 


5. A PRUGRAM UNIT WHICH PASSES A SUBPRUGRAM AS AN ARGUMENT 
TO SOME SUBPROGRAMs 


SInCe OPT MAY BE CHANGED BETWEEN 1 AND O ON A PROGRAM UNIT BASIS,» 
MERELY BECAUSE A PROGRAM CONTAINS SUBRUUTINES THAT ARE INELIGIBLE 
FOR GPTIMIZATION DOES NUT MEAN THAT THE PROGRAM AS A WHOLE WILL NOT 
BENEFIT, POSSIBLY SIGNIFICANTi Ys (ROM SETTING OPT OT 1 FOR THOSE 
PRUGRAM UNITS WHERE PERMITTED. 


Beene ony ON EA TURES 

VARIABLES WHICH HAVE BEEN DECLARED WITH THE OPTIUN OWN S&T WILL 
CUNTINUE TO WORK CURRECTLY UNDER OPTIMIZATIONS BUT FOR VARIABLES 
CNUT ARRAYS)» SETTING *OWN*® WILL NOT FACILITATE THE BEST COLE, 
THEREFORE® A NEW DOLLAR CARD OPTION "UWNARKAYS" HAS BEEN AUDED TO 
THe FORTRAN CUMPILERK. WHEN SETs THIS UPTIUN TREATS ALL ARRAYS AS 
af THEY) «6HAU) 6OBEEN) DECLARED WITH "OWN" StS. BUT MAKES ALi SIMPLE 
VARIABLES LOCAL. IT IS RECOMMENDED THAT OWNARRAYS BE USED WITH 
FORTRAN, OPTIMIZED OR NOT» WHERE POSSIBLE. 


iF The FORTRAN COMPILER IS COMPILED WITH THE USER OPTION 
SETOWNARRAYS SET» THE OFTION UWNARRAYS wILL bE SEI BY DEFAULT IN 
ALL FORTRAN CUMPILATIONS AND MUST bE EAPLICITLY RESET BY THE 
ANUIVIDUAL USER IF NOT DESIREQ. THE UYULLAR CARD UPTION GRAPH IS 
EXPLICITLY DESIGNED FOR USE WITH OPTIMIZATION. JHIS PRODUCES A 
ROUGH FLOW CHART UF THE PROGRAM UNIT ANU CAN ASSIST PROGRAMMERS IN 
MAKING FULLER USE OF THE OPTIMIZED CUMPILEKs 


AS DESCRIBED ELSEWHERE» AUTOMATIC VECTORMODE CUDt CAN BE EMITTED BY 
THE OPTIMIZING COMPILER» PROVIUFO THE DOLLAR CAkU OPIIUN VECTORMODE 
1S Sele 


THe MONITOR AND DUMP FEATURFS DO NUf WORK WITh OPTIMIZATIONS 


DO1L46 FORTRAN = FORTRAN UPTIMIZATIUN @ 10916872 


PAGE 142 


HOWEVER THACEs STATISTICS» PROGRAM DUMP» AND DUMP STATISTICS UOe 


INFORMATION OF THE USE AND PROBLEMS WITH THE USE OF OPTIMIZED 
FURTRAN WILL BE GREATLY APPRECIATEDs 


UN THE FOLLOWING PAGES IS AN EXAMPLE UF A SHORT OPTIMIZED PROGRAM. 
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PROGRAM GRAPH FOR MAIN, 


| NODE OO! | 
(00090002) } 
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(00000006) 
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| (00850040) ) 


Kk -- -- oo a) 


| ewewroveascnena | 
| “NODE 006 I 
H (00000011) 


| 
kee SRO SOO IS -® 


a 


| NOVE 007 | 
H (00000012) H 
! 
! 
! 


( 
pare eres 
Lee ane aan oI 
Q 08 
| cOggpoota) { 
H LOGICAL IF H 


\ 
! 
| 
| 
' 
I 
{ 
* 


waennen cc} 


| 
6 


Y 


| eas ovuseaaaceons | 
! NODE 009 ! 
| (00000011) | 
Bei 


| 

| NODE 010 { 
' (00000010) | 
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| NODE O11 | 
STOP { 
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b0153 FORTRAN © "FIRST® DULLAR CARD OFTIUN © 10°30°72 

THAS PATCH IMPLEMENTS THE FORTRAN CUMPILE TIME OPTION 
GETFIRSTOULLARCARDFROMSPO. It SET THE COMPILER ACCEPTS THE FIRST 
VOLLAK CARD FRUM THE UPERATORS CONSOLE VIA AN AX" INPUT MESSAGE, 
THIS SHUULD BE RESET FUR NORMAL UPERATIONS, 


GONE ONAN SOR yee etn Settee 

A wEW DOLLAR*CARD OFTION “OWNARRAYS® HAS BEEN ESTABLISHED IN 
FORTRAN, WITH THIS UPTIUN SET ALL ARRAYS GANU ONLY ARRAYS UNLESS 
uUWN FS ALSU SET) WILL BE TREATED AS UWN ARRAYS, HENCE SPACE WILL 
NCfo BbeE GIVEN UP UPUN EXIT UR RETUKN FRUM THE SUBPROGRAM NOR 
REINITIALIZEO UPON KEPENTRY. 


boned FONTWAN > TRUNCATED JUENTIELERS 7 Ugrigs73 

THIS PATCH wILL CAUSE A WARNING, "IDENTIFIER TRUNCATED TO 6 
CHARACTERS" FOR ALL IUENTIFIERS KEQUIRING SUCH TRUNCATION, 
PREVIUUSLY THe WAKNING WAS I|[SSUED ONLY Jt Tht FIRST OCCURENCE 
CAUSED TRUNCATIUN. FUR EXISTING PROGRAMS IN WHICH THIS ERROR 
FREQUENTLY OCCURS THE DOLLAR OFTLUN "SUFRS® GAN BE SET TO ELIMINATE 
[Hk WARNING MESSAGES. 


v0165 fORTRAN © COKE TO CURE LATA TRANSFEK © 11°06°72 


* 
CORE fC CORE DATA TRANSFER CONSTRUCT HAD BEEN AUDED TO FURTRAN 
INFUT/OUTPUT STATEMENTS. 


AUULTIUNAL FURMS OF THE READ STATEMENT Abe? 


Can . PAGE 150 
Uu165 FORTRAN @ CUKE TO CORE DATA TRANSFER = 1180672 


weecae we seees © 828s 8S Bees S8ee C8eeeees) & Bene eeeen 
READ (Ap FF) M 

READ CAs Fe R) M 

READ (CAs Ft) 

READ (Ay Foe R) 

READ (A) ™ 

REAU (As RR) M 


ADUITIONAL FURMS OF THE WRITE STATEMENT ARES 


WRITE CAs F) 
WRETE Can Fo Rk) MM 
WHITE Can F) 
WRITE CAp Fo R) 
WRITE CA) ™ 

WRITE CAs R) M 


WHERE "A" TS AN ARRAY IDENTIFIF RS "F® 1S A FORMAT NUMBER, AN ARRAY 
IDENTIFIER, UR A SLASH (/)3 AND *R® ITS A RESULT CLAUSE LIST. 


THESE FORMS ALLOW TRANSFER UF DATA BETWEEN UNE AREA OF STORAGE AND 
ANUIHER. TRANSFER TO AND FRUM THE ARRAY 1S ALWAYS BEGUN AT THE Low 
ENU OF STORAGE MOVING TOWARD THE HIGH END UNDER THE CONTROL UF THE 
tOMMAT SPECIFIED. | 


EXAMPLE? 


DIMENSION AC2) 

READ /s REPEAT» WIDTH, VEC 

WHITE CAs 1) REPEAT» WIDS He NEC 

1 FORMAT CMCM, Tle "EM, Tee to", 120 ")) 


AFTER THE WRITE STATEMENT "A" WUULD CONTAIN Z4DF6C640F 448» 
Laur 250404040 WHEN 60402? WERE THE VALUES UF REPEAT» WIDTHs. DEC 
HESPECTIVELYs [HIS EXAMPLE MIGHT BE UStU TU DYNAMICALLY CONSTRUCT 
FUNKMAT SPECIFICATIONS. 


vO2Z28 FORTRAN © DULLAR. CARD CHARACTER OPTIONS lerdde72 


CUMPILER DOLLAR CARD SYNTAX HAS BEEN EXTENUVED TU INCLUDE THE 
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DO2248 FORTRAN @ DULLAR CARD CHARACTER UPITIONS = 1Z-04cr8 


FULLUWING OPTIUNSS 


CHARS = Wt THIS OPTION SETS TU N THE NUMBER OF CHARACTERS OF A 
STRING CINCLUDING HOLLERITH) wWhICH Wilk BE STURED IN ONE WORD. 
PREVIUUSLY, THIS WAS CUNSTANT AT SIX EBLDIL (COR ASCII) CHARACTERS 
FOR FORTRAN AND SIX BCL CHARACTFRS FOR XFURTRANe STRING CHARACTERS 
WILK BE STORED LEFT JUSTIFIED IN THE FIELD UWF N RIGHE MUST BYTES OF 
A wIKUD OF ALL ZERUS WITH HLANK FILL UN THE RIGHTe WITH THE BCL 
UPILUN (SEE BELOW) SET» N HAS A MAXIMUM VALUE UF & UIHERWISE 6, 


EXAMPLE 


$ SET CHAHS @ 4 
REAL AC2)/"ABCDEFN/ 


WIkLi RESULT IN ACL) = ZOD00UCIC2C3IC4s AC2) = 40000C5CO404Y, 


THe DEFAULT SETTING IS SIX FRHCODIC CHARACTERS. NUTICE THAT WITH 
CHARS < 66 VARIABLES INIT alLlZtb Tu ALL BLANKS WILL NO LONGER SFT 
THE SIGN OF THE MANTISSA (4681). HeNCto ITF X 15 SULH A VARIABLE X 
# "AWSOX). 


BCKs THIS UPTION IMPLIES THAT ALL STRINGS (HULLERITH OF PROPER) ARE 
fU BE USED AS BCL CHARACTERS. ZJIt *CHAKS"™ HAS NOT BEEN FXPLICITLY 
SET.» (TREN THE NUMBER OF CHARACTERS PER WURKU WILL BE SET TO EIGHT. 
BCL AND ASCII OPITIUNS CANNUT BE SEI CUNCURRENTLYS SHOULU THIS 
CONDITION OCCUR, A SYNTAX ERROR WILL BE GIVEN. 


35500! SaME AS H5700. 


BSfu0t uSt OF THIS UFTION ALLOWS CUMPLETE CUMFATIBILITY WITH 
BURRUUGRS 85700 FORTRAN PROGRAMMING LANGUAGE. THE BCL OPTIUN WILL 
BE SET AND THE ASUIIT OPTION WILL BE RESET» IF CHAKS HAS NOT BEEN 
EXPLICITLY USEUs, THEN THE CHARACTERS PER WURD WILL BE SET TO SIX, 


THe ABCVE COMPILE Time OPTIONS ELIMINATE THE NEED FUR A SEPARATE 
BS700 COMPATIBLE COMPILEKS AND HENCEFORTH» SYSTEM/XFURTRAN CUMPILER 
WALL NCCT Be MAINIAINED. THTS PATCH ALSU ALLUNS COMPLETE 
INTERCHANGE ABILITY BETWEEN APOSTROPHE AND WUUTE FUR EBCDIC PROPER 
STRINGS, THEIR USE AS VELIMITERS CANNUT BE MIXED. 


Vu228 FURTRAN © QULLAR CARU CHARACTER urtluns = 12904698 152 


EXAMPLE 


REAL ACZ)/P®AB™ @COMDEFGH="/YTELUS #C1) & LCACZ7D7UC3I7F. 
AC2) = ZC4CSC6C7CK70 BUT "ABCUEF= IS AN INVALID LITERAL, 


- (NOTE THAT THE DASH HAS BEEN USED FUR THE APOSTROPHE,) 


NUTE? APOSTROPHE REMAINS AN ILLEGAL BCL CHARACTER SU THAT ALTHOUGH 
AT MAY DELIMIT A’ BCL PROPER STRINGs AN GECURRENCE WITHIN SUCH A 
LITERAL WILL BE INTERPRETED AS A BCL INVALID CHARACTERS ITeEus A 
WUESTIUN MARK, 


ANUTHER FEATURE OF THIS PATCH IS THAT THE GRAPHIC ASSOCIATED WITH 
THe CARD CUDE (Ose 128Z0NE) TS IDENTICAL TO THE GRAPHIC FOR CARD 
LUVE (8» 65 12°ZUNE) WHICH IS AN EBCDIC FLUS ("4"), 


LOZ 31 FURTKAN = TRACE STATEMENT = 02719273 


A WEW DEBUG STATEMENT HAS BEEN AULDED TO FORTRAN» THE TRACE 
STATEMENTs LIKE THE STATISTICS STATCMENT» THIS STATEMENT HAS 
cPRECT ACROSS SUBPRUGRKAM BUUNDARIESs» THE SYNTAX IS3 


DEBUG TRACE ¢€ F) T 
DEBUG TRACE (F.C) T 


WHERE 


fF IS THE TRACE LIST AND 
F AND © AKE FILE NUMBERS UR «<EMPTY>. 


"OtbUG" MUST BE IN COLUMNS 185.5 CULUMN SIX MUST BE BLANKe THE 
TRACE STATEMENT MAY BE CONTINUEN TU SUCCEEDING CARDS.» 


TRACE LISTS 


1 oiS A LIST OF ELEMENTS SEPARKATFD BY CUMMASs. ELIGIBLE ENTRICS ARES 


UUMP 
NOUUMP 
PRUGRAMDUMP 


: PAGe 1 
00231 FORTRAN © TRACE STATEMENT © 02419873 a 


NOPROGRAMDUMP 
CALLS 

NONE 

) 

#5 


WHeRE S IS NEFINED TU BE ANY OF THE FOeELUWINGS 


ALL 

10 

GO 

Gu TO 

RE AU 
WRITE 
BACKSPACE 
REWIND 
PRINT 
PUNCH 

= 

GALL 
CONTINUE 


A Us 

THAS STATEMENT ALLUWS THE TRACING OF A PRUGRAMS FLOW BY PRINTING 
UUT ALL SEQUENCE NUMBERS AND STATEMENT NUMBERS UF THE SPECIFIED 
STATEMENTS AND SUBPROGRAM CALLS, CUMPARATOR ACTIUN 1S ALSO ALLOWED 
1O DETECT DEVIATIONS IN FPREDETERMINEL PRUGRAM FLUWe AND TO HAVE 
PRUGRAM QUMPS TAKEN SHOULD A MISMATCH ARISE. 


"Fe TS THE OUTPUT FILE. IF "Fe TS <EMPIY> THEN THE PREVIOUS VALUE 
UF "FY FS CARRIED OVER. IF “FY HAS NEVER BEEN SPECIFIED THEN THE 
TRACING ACTION IS SUPPRESSED. "C® IS THE CUMPARKATUK FILE. IF "cn 
4S NCT SPECIFIED BY USE Ob THe FIRST tURM UF THE STATEMENT» THEN 
The TRACE UUTPU) IS WRITTEN ON THE FILE "bh. FY MAY BE A DISK OR 
TAPE FILE. AND FS AUTOMATICALLY LUCKED AT JHE END UF THE PRUGRAM,. 
iF OTHE 6UCOMFARATOR FILE [5S SRECIFI&E Us THEN INSTEAD OF WRITING A 
TRACE RECORD TO “F%, A KECURD IS READ FRUM "CU", AND COMPARED TQ) THE 
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TRACE RECORD THAT WOULD HAVE BEEN OUTPUT TO "FF" HAD #C# NOT BEEN 
SPECIFIED. IF THEY COMPARE AS IDENTICAL» NO ACTION IS TAKENs IF 
THEY DO NOT CUMPARE» THEN A MESSAGE IS WRITTEN TO "F%> AND IF DUMP 
UR PRUGRAM QUMP WAS SPECIFIEUs, A PRUGRAM DUMP IS TAKEN» 


The LISS “T*™ YS USED TO SPECIFY THE TRACING ACTION. OUMP OR 
PRUGRAM QOuMP SPECIFY THAT PROGRAM DUMPS ARE TO BE TAKEN IF THE 
COMPARISON WITH "C* RECORDS FAILS. NODUMP UR NUPRUGRAMOUMP RESETS 
THiS SPECIFICATIONe NUUDUMP ITS THE ASSUMED SETTING» NONE OF THESE 
UPTIONS HAVE ANY MEANING IF THE COMPARITOR MOVE HAS NOT BEEN 
REQUESTED. 


"CAELS" TRACES ALL SUBRUUTINF ANI FUNCTEON ENTRIES AND EXITS. 
INTRINSIC CALLS ARE NOT TRACED. 


"NUNE" RESETS ALL REWUESTS PRECEDING ITe UTHERW1SE EACH "TH 
ELEMENT IS PROCESSED ADDITIVELY, 


THe SPECIFICATION "S* IS USED TO INDICATE THAT TRACING IS DESIRED 
UN AN EXECUTABLE STATEMENT OK CLASS OF EXECUTABLE STATEMENTS. IF 
PRECEEDED BY A POUND SIGN (#) THEN ONLY STATEMENTS OF THIS CLASS 
WITH STATEMENT NUMBERS ARE TRACED. 


ALL © INDACAGES ALL EXECUTABLE STATEMENTS CANU SETS CALLS) 

10 * [INDICATES ALL I/7U STATEMENTS 

GUs GO TO = INDICATES GU TO STATEMENTS 

PRINT» PUNCHs READ» WRITE = INDICATE THE STATEMENT NAMED 

CALL» CONTINUEs BACKSPACEs REWIND = INDICATE THE STATEMENT NAMED 
z * INDICATES ALL ASSIGNMENT AND DU STATEMENTS 


FULLUWING IS AN EXAMPLE UF A SAMPLE PRUGKAM WITH A TRACE STATEMENT. 
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FORTRAN EXAMPLE 


UO232 FORTRAN * FIEE 1OENTIFIER © O2elge73 
THIS PATCH IMPLEMENTS THE USE OF FROPEK STRINGS AND HOLLERITH 
STRINGS WHEN SPECIFYING THE EXTFRNAL IDENTIFIER WITHIN A FILE CARD. 


EXAMPLES 


Flee 10 3 “ERCDIC@NAME™, RECORD = 100 
FILE 11 = "AB"/2HCD» RECORD #& 100 


NUTE THERE IS NOG AMBIGUITY BETWEEN HOLELERITH STRINGS AND 
AVENTIFIERS CREATED UNDER PREVIOUS SYNTAX SINCE IDENTIFIERS WHICH 
ARe NUT STRINGS ARE NOT ALLOWFD TO BEGIN WITH NUMERIC CHARACTERS. 


BeS es  baglige: a aceeuoe CORPOn cate: aosecas sa eeoneaes 

A NUMBER OF NEW DOLLAR CARD OPTIONS HAVE BEEN ADDED TU FORTRAN AND 
SOME EXISTING OPTIONS HAVE KEEN REVISED. THIS NUTE ATTFMPTS TO 
COLLATE ALL OF THE NEW DOLLAR CARD UPTIONS, UNLESS EXPLICITLY 
NOTED» ALL OF THESE UPTIONS MAY BE EXPLICITLY OR IMPLICITLY SET» 
RESET» OR POPPED FOLLOWING THE PROCEDURES FUK EXISTING OPTIONSS AND 
ARE RESET BY DEFAULT. 


UWNARRAYSS$ MAY ONLY BE ALTERED EXPLICITLY.» WHEN SET» THIS OPTION 
TREATS ALL ARRAYS AS IF THEY WERE LELCARED AS "OWNS® BUT DUES NOT 
AFFECT THE STAItUS UF SIMPLE VARIABLES. THIS 1S DESCRIBED IN 
GREATER DETAIL IN THE OPTIMIZATIUN SYSTEM NOTE» DO146, 


C$ds UOLLAR CARDS (CWITH THE DOLLAR SIGN IN COLUMN ONE) WILL BE 
LISTeO IF LIST Is SET. IF THE FIRST $ SIGN ON THE CARD 1S IN 
COLUMN TWOo IT wWILk BE LISTED ACCURUING TO THE SAME RULES AS A 
SUURCE CARD, 
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va230 FORTRAN © FORTRAN DOLLAR CARD OPTIONS - o2-19955 2 

GRAPH» VECTORMODES OPTIMIZATION OPTIONS TRAT ARE SIGNIFICANT ONLY 

AF OPTIMIZING. GRAPH PRUVIDES ADDITIONAL LASTINGS VECTORMOLE WILL 

PERMIT EMITTING VECTORMOVE CONDE WHEN FEASIBLE, THIS IS DEXCRIBED 
AN GREATER DETAIL IN THE OPTIMIZATION SYSTEM NUTtE» 00146, 


B7700% AN OPTION THAT 1S SIGNIFICANT ONLY It OPTIMIZING. THIS 
INHIBITS SOME CONSTRUCTS THAT,» WHILE OPTIMAL FUR THE 867005 ARE NOT 
PREFERRED ON THE B7700.6 ALL CODE EMITTED, wITH UR WITHOUT THIS 
UPITON»s WILL RUN ON EITHER MACHINEs THIS ONLY AFFECTS EMITTING 
UPTIMAL CONTRUCTS. 


ENUt WHEN ENCOUNTERED» SIGNALS END OF FILE ON JHE PARTICULAR MEDIUM 
WHERE FOUND. THIS OPTION IS NNT IMPLICITLY SET» RESET» OR POPPED. 
IT IS AN INDEPENDENT OPTION, HANDLED SIMILARLY TU S$ PAGE IN NOT 
AFFECTING UTHER OPTIONS. 


B5500sBS700sBCLeASCIISEBCDIC+CHARSENS THESE OPTIONS ASSIST 
INCONVERTIBILITY OF PROGRAMS. THEY ARE VESCKIBELD IN. THE CHARACTERS 
PEK WORD SYSTEM NOTE» 00226. 


- 


UOZa7 FORTRAN © STATISTICS IN FORTRAN © vseiie73 

[T SHUULUL BE NOTED IN THE SYNTAX SECTION OF SYSTEM NOTE D0109 THAT 
TO GET STATISTICSs DIAGNOSTICS OK THE FILE NUMBER MUST BE ENCLOSED 
IN PARENTHESES. 


NEW FEATURES AND DUCUMENTATIUN CHANGES PAGE 158 


INPUT*OUTPUT 


V0185 MCP#1°Q © "WRITESPO" PRUCEDURE © 12"04"72 


be THIS PROCEDURE ASSUMES WHAT ITS NAME IMPLIES! A WRITE OF DATA 
TO A CONSOLE IS NEEDEN.e THE PARAMETERS ARE! 


CUs ADS» VIRARAYs IOF INISHEVENT) Z ALL CALL eBYeVALUE 
EXCEPT THE EVENT 


WHERE 
Uo = Unit #@ OF CUNSOLE 
WOS & NUMBER OF WURDS [TO Be WRITTEN 


(DATA STRING MAY HAVE IMBLDDEU "“ETX%» IN WHICH 
GASE IT wILlL TERMINATE THE WRITEs NOTE THAT [198 
317 MAY CUNTAIN A VALUER UF ZERU THROUGH FIVE TO 
INDICATE CHARACTERS IN ADDITION TU THE NUMBER OF 


WORDS IN (16817]6) 
DVIRARAY = UIRECT ARRAY 


(CONTAINS VATA TO BE WRITTEN AND DIRARAYsIOMASK 
HAS APPROPRIATE MASK.) 


TOF INISHEVENT = EVENT CAUSED WHEN 1/0 IS FINISHED 
26 WRITESPO IS A BHUULEAN PRUCEDURE WHICH RETURNS! 

FALSE = AOK Cleese» WRITE (TS "IN MOTION") 

TRUE = CUULUD NOT/WOULD NOT ATTEMPT WRITE 


11:86 = 34 MEANS "UH" TS BAD 
=e 40 MEANS "NTRARAY*® 1S NUT DIRECT ARRAY 
2 41] MEANS "NDIRARAY* HAS 4/0 IN PROCESS 
© 42 MEANS IQFINISHEVENT VECLARELD LATER 
THAN DIRARAY 


se 1 
00185 MCPH1-0 = "WRITESPU" PROCEDURE = 12204072 PASE 159 


3e CALLER CAN USE DIRECT I/U CARRAY) ATIRIBUTESS 
A. TO SET UP "FOMASK", OR RETRIEVE aa 
Be TO CHECK FOR “"ILOCUMPLETE" 
C. TO RETRIEVE “ITURESULT* CRAW WORL) 


Ue TO CHECK "JOERRORTYPE™ (SEE I/70 SUBSYSTEM MANUAL PP. 
423) 


Es TU RETRIEVE "IUTIME™ CIN 204 USECS)>o 


4. CONTROLLER CAN TRANSMIT DATA TO .ANY CONSOLE IF A USER IS 
CUNNECTED VIA CUNSULE FILES, OUTPUT CAN BE MMIXEUS, 


DOLE CeO) 7 TAGE ATIR TROT C Se PINE eestor ee 

THE DATACOM FILE (KIND = REMOTE) ATTRIBUTE® "TIMELIMIT", HAS BEEN 
IMPLEMENTEOs  TIMELIMIT 15 A PUSITIVE REAL NUMBER IN UNITS OF 
SECONUS. IT CAN BE HOTH SET AND READs THE ATTRIBUTE CAN HE SET 
VIA LABEL EQUATION» IN THE FILE DECLARATION» AT RUN TIME WITH THE 
FILE EITHER OPENED OR CLUSEDs OR IN READ UK WRITE STATEMENTS. IT 
CAN BE READ ONLY WHILE IHE FILE IS OPEN. 


bHeE AGTION WHEN TIMELIMIT IS GREATER THAN ZERO IS. AS FULLOWS! 


GN A READ STATEMENT» IF NU INPUT IS RECEIVED WITHIN TIMELIMIT 
SECONDS, THE READ STATEMENT IF TERMINATED WITH A TIMELIMIT 
ERRUR. 


ON A WRITE STATEMENT» IF NO BUFFER DECOMES AVAILABLE WITHIN 
TIMELIMIT SECONDS» THE WRITE STATEMENT 1S TERMINATED WITH A 
TIMELIMIT ERROR. 


A TIMELIMIT ERROR IS REPNRTEO BY THE LOGICAL 1/0 RESULT 
DESCRIPTOR WAVING THE ATTENTION BAT (C081) ANL BIT £1581] 
TURNED ONe 


SYNTAM FOR SETTING TIMELIMIT IN AN ALGOL 1/0 STATEMENTS 


G i 
VOI91 MCPele() = FILE ATTRIBUTES = TIMELIMIT © 12°15=58 F ay 


AUD TO JHE <RECORD NUMBER OR CARRIAGE CUNTRUL> DEFINITION 
(SEE 9°21 ITN ALGUL LANGUAGE NOCUMENT ). 


CTIMELIMIS <ARITHMETIC EXPRESSION) 
EXAMPLES 


WHITECRILELD CTIMELIMIT 2543]5125AKKAYRUW)3 


UV0196 MCP#leQ © FILE ATTRIBUTES 5 CURKENTBLUCK 2 12°19°7? 

THe FALE ATTRIBUTE. "CURRENTHLUCK™s IS A REAU UNLY INTEGER WHICH IS 
ACCESSABLE UNLY WHEN THE FILE IS UPENse THE VALUE RETURNED IS THE 
SIZE OF THE BLOCK CURRENTLY IN USEs IN LOGICAL UNITS (CleEos 
INTMUDE UNITS IF IT IS A CHARACTER URIENTED FILEs OTHERWISE WORDS), 


v0235 MCP=I=*UW © FILE ATTRIBUTES = 02°19°73 


tLINENUM 


FHe ATTRIBUTE LINENUM INDICATES THE CURRENT LINE NUMBER OF THE 
LUGICAL PAGE, DEFINED BY THE PAGESIZE ATTRIBUTE. IT IS ONLY 
MEANINGFUL FUR PRINTER FILES WHERE THE PAGESIZE ATTRIBUTE HAS BEEN 
SEF GREATER THAN ZEROs LINENUM CAN BE SET TU ANY VALUE BETWEEN 
ZERO AND 255, 


uUSt UF THE *LLINE <AEXP>)" FURM UF THE <RECORD NUMBER OR CARRIAGE 
CUNTRUL> PAKT CAUSES THE LUGICAL I/0 SUBSYSTEM TO SPACE FORWARD TO 
THe LOGICAL LIwk EQUAL TU <AEXP> ANU SETS LINENUM TO <AEXP>. CIF 
<ALXP> [5S GREATER THAN OR EQUAL TU PAGESIZt» Ok IF <AEXP> 15 LESS 
THAN LINENUM CIMPLYING A BACKSPACE) AN END OF PAGE REGULT IS 
RETURNEL, A SKIP TO CHANNEL ONEo TeEon “CLOKIP 13” RESETS LINENUM 
1Q UNEs SETTING LINENUM GREATER THAN UR EQUAL TU PAGESIZE CWHEN IT 
1S GREATER THAN ZERO) WILL CAUSE AN END UF PAUE RESULT ON THE NEXT 
WRKATE STATEMENT. 


EVERY SERIAL WRITE STATEMENT INCREMENTS LINENUM CWHILE PAGESIZE IS 


PAG 
00235 MCP*1*Q © FILE ATTRIBUTES ° 02"19°73 amet, het 


GREATER THAN ZERO). A SERIAL WRITE STATEMENT WHICH RESULTS IN END 
UF PAGE WILL HAVE BEEN PRINTED. AN END OF PAGE DOES NOT CAUSE THE 
NEXT WRITE STATEMENT TO START ON THE TUP UF A PHYSICAL PAGEs ANY 
SPECIAL ACTION AFTER THE END OF PAGE RESULT MUST BE DONE BY THE 
PRUGRAM, THE VALUE OF LINENUM AFTER THE END OF PAGE IS ONE. 


AN ENO GF PAGE RESULT IS THE SAME AS AN END GF FILE RESULT. 


eeeceece 

THe ATTRIBUTE PAGESIZE INDICATES THE NUMBER UF LINES ON A LUGICAL 
PAGE OF aA PRINTER FILE. PAGESIZE CAN BE SET OR INTERROGATED AT 
ANYTIME, PAGESIZE CAN HAVE A VALUE BETWEEN O AND 255eINCLUSIVE,. 
WHEN PAGESIZE 1S NON®ZERU THE LOGICAL 1/0 SUBSYSTEM MAINTAINS THE 
LINENUM AND PAGE ATTRIBUTES. WHENEVER THE VALUE OF LINENUM BECOMES 
GREATER THAN OR EQUAL TU FAGESTZEs THE WRITE STATEMENT WILL RETURN 
AN ENO OF PAGE RESULT (THAT IS THE SAME AS END OF FILE) AND LINENUM 
wiht BE RESET TO 1. IF PAGESIZF IS RESET TU ZERU WHILE THE PRINTER 
blLe IS QPEN» PAGE AND LINENUM WILL SUBSEQUENTLY BE IGNORED. 
PREVIUUS TO II*4 THIS CAUSED A FATAL ERRUR. 


PAVESIZE IS ALSU A DATACOM FILE CKIND®REMUTE) ATTRIBUTE WITH A MORE 
RESTRICTED MEANINGs PAGESIZE 1S READ UNLY» THE FILE MUST BE OPEN 
TO aCCESS 17» AND I1 REWUIRES A RELATIVE STATIUN NUMBER AS AN INDEX. 
AS A DATACOM FILE ATTRI@UTE 1T RETURNS THE NUMBER OF LINES ON A 
PAGE AS SPECIFIED IN THE NOL DESCKIPTION UF THE STATION. 


vO2ad 1°Q © CARRIAGE CONTROL VALUES * 03°23%73 


THe FIRST PARAGRAPH OF 00133 IN THE SYSTEM MISCELLANEA HAS BEEN 
CHANGED TO READ AS FOLLUWSS 


THE Fike ATTRIBUTE "CARRIAGECUNTROL™ HAS BEEN IMPLEMENTED FOR 
PRANTER FILES, IT HAS THREE VALUES! 


STANCAKD © 0 © THE DEFAULT» NURMAL CAKKIAGE CUNTROL AS 
SPECIFIED BY THE 1/0 STATEMENT OR FORMAT. 


P » 
00282 1*0 = CARRIAGE CONTROL VALUES = o3=23e73 PAGE 162 


CTLASA # 
CTL360 = 2 


NUTES NON@STANDARD CARRIAGF CONTROL IS ONLY ALLOWED FOR 
CHARACTER ORIENTED CUNITS = TRUE) EXCDIC CINTMOVE ® EBCDIC) 
PRINTER FILES. 


NEW FEATURES AND DOCUMENTATIUN CHANGES PAGE 163 


MCP 


vO172 MCP © TIME SLICING AND CODE SWAPPING = 10°16"72 

THE MCP wILL NOW PLACE CODF WITHIN THE SUBSPACE IF THE TASK 
ATIRIBUTE HAS SWBSPACE SET TU THREEs MEMORY ASSIGNEL TO A SUBSPACE 
TASK WILL NUW BE INCREASEO UP TO THE SIZt UF THe SUBSPACE WHENEVER 
A TASK EXCEEDS THE CURRENTLY ALLOTTED SPACE. 


TIME SLICING IS IMPLEMENTED AS FOLLOWS! 


UNE UF THE GOALS OF THE SUBSPACE TASK EXECUTION OPTION IS TO ALLOW 
A LARGE NUMBER OF BURST®URIFNTED TASKS TO RUN WITHOUT FREEZING 
MEMORY RESOURCES DURING THEIR NDURMANT PERTOUS. MEMURY IS FREEO BY 
SWAPPING THE DORMANT TASK TU DISK SU THAT ITS MEMORY KESOURCES ARE 
AVAILABLE FUR USE BY ANOTHER SUCH TASKe BECAUSE A LARGE NUMBER OF 
TASKS ARE BIDDING FOR A SOMEWHAT SMALLER MEMURY KESOURCEs TASKS 
WHACH FOR SOME REASON DISCONTINUE THEIR BURST@ORIENTATION FOR SOME 
UURATION OF TIME MUST HAVE AN ARTIFICIAL BURST RATE IMPOSED UPON 
THE Me THIS IS TIME SLICING ANU IS NECESSARY TO ENSURE THAT ALL 
TASKS WILL HAVE aN OPPORTUNITY TO USE THt SUBSPACE MEMORY RESOURCE. 
THERE ARE FIVE CASES WHEN A TASK OPERATING WITHIN A SUBSPACE WILL 
BE SWAPPED OuT TO OISK!8 


Ae WHENEVER THE TASK ATTEMPTS TO OBTAIN INPUT FROM TRE 
DATACUM SUBSYSTEM AND THE REQUIRED INPUT IS NOT YET 
AVAILABLE? 


Se WHENEVER THE OUTPUT BUFFERS FOR FILES BEING DIRECTED TO 
THE OATACOM SUBSYSTEM ARE FILLED AND THE TASK ATTEMPTS 
MORE SuCh OUTPUTS 


Ce WHENFVER THE TASK HAS BEFN SUSPENVEDS 
De WHENEVER THE TIME SLICE ALLOCATED THE TASK HAS EXPIRED? 


Ee WHENEVER THE TASK EXCEEDS THE SUBSPACE SIZE ALLOCATED TO 
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[T ON ITS PREVIOUS SWAP®IN. 


TASKS ARE RETURNED TO MEMORY CWITH RELOCATION SO THAT IT IS NOT 
REQUIRED THAT THE IDENTICAL MEMORY SPACE FROM WHICH A TASK WAS 
SWAPPED BE AVAILABLE IN ORDER TO SWAP THE TASK BACK TO CORE) 
WHENEVER THEY ARE CAPABLE uF UTILIZING THE PROCESSOR AND THERE IS 
ADEQUATE MEMORY AVAILABLE FUR THE SWAP*IN. THERE ARE TWO PRIORITY 
LEVELS FUR SELECTING READY*TUSRUN TASKS FUR SWAP@INe 


Ay VEMAND SWAPPING 
TASKS WHICH ARE NEW TU THE SYSTtEMs WHICH HAVE RECEIVED THE 
DATACOM INPUT FOR WHICH THEY ARE WAITINGs TASKS FOR WHECH THE 
DATACGM SUBSYSTEM HAS OUTPUT AT LEAST UNE HALF OF THE DATA WHICH 
EXCESS URIGINALLY CAUSED THE SWAP*®OUT» AND TASKS WHICH HAVE BEEN 
AWAKENED FRUM SWAP*Q0UT SUSPENSIUN, WILL BE CONSIUERED AHFAL OF A 
TASK WHICH WAS SWAPPED BECAUSE OF TIME SLICE EXPIRATION. THE 
EXCEPTION TO THIS IS THAT WHENEVER THE NUMBER OF TASKS INSERTED 
IN FRUNT OF aA SLICE JOB EXCEEDS ITS SLICE NUMBER BY TWOs THAT 
TASK WILL REVERT TO DEMAND STATUS. WITHIN DEMAND STATUS» TASKS 
ARE ORDERED IN A FIRST#IN FIRST@SWAPPED OKDER,. 


Ba TIME SLICED TASKS 
TASKS SWAPPED UUT BECAUSE THEY EXCEED THEIR TIME SLICE wIkt BE 
SWAPPED INTO AVAILABLE MEMORY ONLY IF THERE ARE NU DEMAND STATUS 


SWAP REQUESTS WHICH CAN BE SATISFIEU. 


AT SHOULD BE NOTED THAT PRIORITY IS NOT A UIRECT CUNSIDERATION IN 
THE SWAPPING ALGORITHMS INSTEAD» IT APPEARS IN THE FORMULA USED TO 
COMPUTE TIME SLICES. THE TIME SLICE ALLOCATED a TASK IS EXPRESSED 
iN TERMS OF BUTH ELAPSED TIME AND PROCESSOR TIME, BEFORE 

ALLOCATING A PROCESSOR [TO A SWAPPABLE VJUBsy ITS PROCESSOR AND 
ELAPSED TIME SLICES ARE CHECKED. It EITHER IS EXCEEDED. A NEW 
SLICE IS COMPUTED AS PER THE FORMULA BELOW, AND THE JOB IS SWAPPED 
UUT. WHEN A JUB IS SWAPPED QUT DUE TO A DEMAND CONDITION CIeEos 
VATACUM INPUT REQUIRED)» ITS SLICE NUMBER IS RESET TU ZERO. 


LACH TIME A TASK IS SWAPPED BECAUSE OF TIME SLICE EXCEEDED, THE 


bo17ze MCP © TIME SLICING AND CODE 
SLICE NUMBER IS INCREMENTED BY ONEs 
MAXIMUM VALUE AS SPECIFIED IN THE 


IMPOSED MAXIMUM OF 2566 


THE FURMULA FOR COMPUTING A TIME SLICE 
T= (N *® K1 + C # P + @) * KD + M8 
Es T*#®R | 

WHERE 


T IS THE PROCESSOR TIME SLICE. 
—E IS TRE ELAPSED TIME SLICE, 


N IS THE SLICE NUMBER (THE MAXIMUM 


- 1001g275AGE 165 


THIS NUMBER 1S SUBJECT TO A 
SWAPDISK FILE» WITH A SYSTEM 


SWAPPING 


18% 


416667 


UNITS ARE 204 USEC, 


VALUE FUR N IS 


UBTAINED FROM WORD 5S UF THE FIRST RECORD OF SHAPDISK, 


IF THAT WORD IS ZERO» A NEFAULT 


BE USEDe). 


VALUE OF SEVEN WILL 


C IS THE CORE SPACE USED BY THE TASK IN CHUNKS. 


M IS THE MINIMUM TIME 
NUMBER IS OBTAINED 
A DEFAULT VALUE UF 


THIS wORD 1S ZERO, 
Kl IS 4, 
K2 IS 50000. 


P IS PRIURITY. 


SLICE IN SECONDS. 
FROM WORD 4 UF THE SWAPDISK, 
GN— SECOND WILL BE USED IF 


THIS 


R IS THE RATIO OF ELAPSED TIME TO PRUCESSOR 


TIME, 
SWAPDISK.s 
2 IS USEDS OTHERWISE,» 
THAN UR EQUAL TO le 


MCP 


tc 
to 
to 
eco 
LF 


er tuesoces 


MCP COOF FILES 


THIS NUMBEK IS GBTAINED FROM WURD 6 OF 
IF THE VALUE UF WURD 6 IS U» 
WORLD 6 MUST BE GREATER 


THEN 
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THIS CHANGE PROVIVES THE ABILITY TO HAVE MULTIPLE MCP CODE FILES 
(WHICH ARE HALT/LUAD CAPABLE) WITHOUT RUNNING UIRECTORY 
HECUNSTRUCTIONe WHEN MULTIPLE MCPS AKE PRESENT CWITH OR WITHOUT 
KECONSTRUCTIUN)» AND AN IRRECOVERABLE ERROR OCCURS UN THE MCP CODE 
FILE» AN AUTOMATIC SWITCH TO BACKUP MCP WILL BE PERFORMED, 
IRRECOVENABLE ERRUKS ON THE MCP WITH NO BACKUP COVE FILES WILL 
RESULT IN A DEFUNCT "MCP CODE ERR" BEING DISPLAYED, 


BACKUP MCPS WITHOUT RECONSTRUCTION ARE ESTABLISHED IN TWO WAYS? 


Le AT COLD START TIME VIA THE “BACKUPEUS” CARD OR “EU <UNIT 
NO> BACKUP EU" AND NOT SPECIFYING A OIRECTORY CUPY 
FREQUENCY VIA THE "FREQUENCY® CARLS 


20 RESERVE WITH RES DK <UNIT NO> AS MCP SYNTAXe DATA FILES 
ARE MUVED OFF THt SPECIFIED AREA AND AN MCP COPIED THERE. 


HALT/LUADS FRUM VARIOUS UNITS ARE PUSSIBLE AND NO DIRECTORY 
RECONSTRUCTIUN WILL OCCUR UNLESS THE USER HAS SPECIFIED SUCH VIA 
THe COLD START FREQUENCY" CARD OR RESERVED AN ALTERNATE 

RECONSTRUCTIUN CAPABLE EU VIA THE "RES DK <LNIT NO> AS ALTERNATE", 


COLD STARTS AND "CM*S" WILL COPY THE NEW MCP TO aLL EU*S DESIGNATED 
TO HAVE MCP CODE FILES. | 


Udc10 MCR ot WURK FLOM MANAGEMENT 2 uiriS773 
VHLS PATCH BEGINS THE IMPLEMENTATION OF WORK FLOW MANAGEMENTs THE 
VOCUMENTATION IS CUNTAINED IN WORK FLOW MANAGEMENT USERS MANUAL 
VOLUME [ AND WORK FLOW MANAGEMENT USERS MANUAL VOLUMN II, 


U0227 MCP = MCS LOGGING = 07°05"73 

A NEW DCALGOL INTRINSIC "MCSLOGGER" ALLUWS AN MCS TO MAKE ENTRIES 
INTO ThE SYSTEM LOG. THIS INTRINSIC REPLACES THE PREVIOUS 
"SYSTEMLUG" INSTALLATIUN INTRINSIC. MCSLOGGER IS A REAL INTRINSIC 
WHACK HAS ONE PARAMETER» AN ARRAY» WHICH CUNTAINS THE INFORMATION 
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@aeaeaue ana oo Snes wg HOMES -» ween tboaans 


TO BE LUGGED. THE FORMAT GF THE ARRAY IS DESCRIBED IN THE WURK 
tLUW MANAGEMENT DOCUMENT. 


wil Rh THE EXCEPTION UF LUG*ON ENTRIES» THE CUNTENTS UF THE PASSED 
ARRAY IS NOT MODIFIED, AND THE FIRSTWUKO UF THE ARRAY CARRAY(O)) 
MUST CONTAIN A VALIU JOB NUMBER, 


POR LOG*UNs MCSLUGGER WILL SUPPLY A UNIQUE JOG NUMBER IN WORD ZERO 
UF THE ARRAY, THIS JOB NUMBER MUST BE USED FUR ALL FUTURE LOGGING 
FOR THIS USER» TERMINAL» ETC. 


AF OTHE GIVEN ENTRY COULD NOT BF ENTERED IN THE LUG» MCOSLOGGER WILL 
KETURN A NEGATIVE RESULT INDICATING THE SPECIFIC REASON THE REQUEST 
WAS DENIED. VALUES RETURNED BY MCSLUGGER ANDO THEIR RESPECTIVE 
MEANINGS ARES 


0 #> ENTRY LOGGED SUCESSFULLY 
"1 #> MEANS EITHERS 


le ARRAY TOO SMALL TO CONTAIN THE INFURMATION (I1.Eo. 
LENGTH FIELDS InN LINK WORDS WERE IN ERROR) 


2e THE INFORMATIUN REQUIRED MURE JHAN 256 WORUSe 


#2 => THE CALLER IS NOT A VALID MCS.OK HAS NOT 
INITIALIZED ITS PRIMARY QUEUE. 


“3 > A O1SK PARITY OCCURED WHILE ENTERING THE 
RECORD IN THE LOUG»s 


“4 => EITHER THE MAJOR TYPE OF THE ENTRY WAS NOT 
FOUR (MCS RECURD)» OR THE MINOK TYFE WAS 
INVALID (LEG ZERO UR GTR FOUR). 


#=5 @> THE ENTRY WAS NOT LOG*0N AND WORD ZERU UF 
THE ARRAY OID NOT CONTAIN A VALID JU0b 
NUMBER. 


EXAMPLES 


RESULTI= MCSLUGGER (JOBINFULJo #23 


EO 
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YVO2Z48 MCP = TASK ATTRIBUTE "HISTORY" = 02°19873 


gaeenen aon ao Se G@e eG eB®nao*®en Ge ekveecaus = esS®n ®uenen 
4 


AT SHUULD BE NOTED THAT IN THE MARK I1.3 SYSTEM RELEASE THE VALUES 
KETURNED BY TASK.HISTURY WERF CHANGED RADICALLY. THERE HAS BEEN 
SOME FURTHER CHANGE IN MARK LIe4s. IT IS EXPECTED THAT THESE VALUES 
Wika BE IN A CONSTANT STATE UF FLUX AS THEY ARE USED HEAVILY BY THE 
MCP FUR PROCESS CONTROL AND ONLY INCIDENTALLY BY MCS FOR 
ANFGRMATION GATHERING. ANY USER PROGHKAM WHICH USES THESE VALUES 
SHUULD BE FREPAREU FOR MINOR CHANGES WITH EACH SYSTEM RELEASE. 
CURRENT VALUES MAY BE FOUND BY CUNSULTING THE LIST OF DEFINES 
STARTING AT SEQUENCE NUMBER 05027200 IN THE MCP LISTING, 


voz7y MCP + FURNMESSAGE ASSIGNED LE 7 g1722773 

A FORMS MESSAGE CAN NOW BE ASSIGNED TU A LINE PRINTER USING THE 
CONTROL MESSAGES FURM LP<UNITNUMBER> <STRING LESS THAN OR EQUAL TO 
15 CHARACTERS>ETX, THE CUNTROL MESSAGE, FORM LPKUNITNUMBERDETX> 
RETURNS THE FORMMESSAGE ASSIGNED» IF IT EXISTSe IF A LINEPRINTER 
4S "FM=EUt, ANY PRINTER FILE OPENED WITH THE SAME FURMMESSAGE WILL 
BE AUTOMATICALLY ASSIGNED TU THE “FM@ED" LINEPRINTER wITHOUT 
UPERATOR NOTIFICATIUN OK INTERVENTION. [HE LINEPRINTER WHILE “FMe 
BU" [5S NOT AVAILABLE TO A PRINTER FILE WHICH OUES NOT HAVE THE SAME 
CUR ANY) FORMMESSAGE. 


THE CONTROL MESSAGE CL WILL UNASSIGN THE FORMMESSAGE» 
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MCSTI 


vo¢5i MCSIT © NEW FEATURES FOR SYSTEM MCSII = 02°19273 


te LOGICALACK 


A LOGICALACK STATUS ITEM FOR A STATION HAS BEEN IMPLEMENTED. 


LOGICALACK MAY BE SET AT ATTACH TIME OR bY USE OF THE ALTER CONTROL 
STATEMENT. SETTING LUGICALACK CAUSES MCSII] TO EXECUTE A SET 
LOWICALACK OCWRITE FOR THe SPECIFIED STATION AND SUBSEQUENTLY 
AUTUMATICALLY LUGICALLY ACKNOWLEDGE THAT STATION WHENEVER A 
TERMINATE LOGICALACK STATEMENT IS EXECUTED BY THE OCP FUR THAT 
STATIUN, 


EXAMPLE? 
ATTACH TCSAAs READY» ENABLED, LOGICALACKS 
ALTER TCS5BB LOGICALACK # TRUF3 

SYNTAX 


<STATUS ITEM> 83a ENABLED/READY/NONALL/MONERK/CONTROL/NOHELLO/ 
NOALK/AUTOERR/LOGICALACK 

<MODEM SPECIFICATION>&3®<EMPTY>/MQDEM<MUDEM I[u> 

<MOVEM [0>8%s<MQDEM IDENTIFIFR> 


SEMANTICS? 


THE ATTRIBUTE LIST MAY BE SPECIFIED IN ANY QHOER OR MAY BE <EMPTY>, 
WHERE AN <EMPTY> OPTIUN IS SPECIFAEDs THAT ATTRIBUTE UR ATTRIBUTES 
WILL NUT BE UPDATED FOR THATsSTATION. 


EXAMPLE! 


MUVE STATION TCSAA TU (00053) REAUY AUVAPTER 9 MODEM M2W 
TERMINAL ICSTYPE23 


G i 
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Il. UPDATE CONTROL STATEMENT 


THe NEW CONTROL STATEMENT UPDATE ENABLES THE USER TO INSTRUCT MCSII 
TO CHANGE THE ATTRIBUTES OF A LINE BY MAKING USE OF THE UPDATELINE 
UCWRITE, 


SYNTAX! 


<UPDATE STATEMENT> t82UPDATE<LINE ADDRESS><LINE ATTRIBUTE LIST> 
<LINE ADDRESS3 8a( <DCPNUMBER>s<CLUSTER NUMBERD>»<LINE NUMBER?) 
<LINE ATTRIBUTE LIST>83= <ADAPTER CLASS SPECIFICATION> 
<MODEM SPECIFICATION> 
<AUAPTER CLASS SPECIFICATION? 3 te ADAPTERK<ADAPTER CLASS><MODE PART>/ 
<EMPTY> 
<AUAPTER CLASS>32@<UNSIGNED INTEGER> 
<MUDE PART>ata( MODEM) /C(UIRECT) 


SEMANTICS! 


THiS CONTROL STATEMENT ALLOWS THE USER TU SPECIFY THt ADAPTER CLASS 
ANU/OR MOOEM FUR A PASSIVE LINE WheRE PASSIVE 1S UNDERSTOOD TO MEAN 
A LINE WHICH HAS NO CURRENT STATION ATTACHMENT? TO EXECUTE AN 
UPLATELINE FUR AN ACTIVE LINE WILL RESULT IN A OCWRITE ERROR. 


EXAMPLE, 
UPLATECOs3212) AVAPTER 2 (MODEM) MODEM MIZ003 


ill. MOVE CONTROL STATEMENT 
EXTENSIONS TO THE MUVE CONTROL STATEMENT HAVE BEEN IMPLEMENTED TO 
MAKE USE UF THE NEw FEATURES OF DYNAMIC RECONFIGURATION, 


FOR THE MOVE STATEMENT» THREE NEW UPTIUNS wILL CAUSE MCSII TO 
INSTRUCT THE DEC TO CHANGE THE AUVAPTEKs» MUDEM AND TERMINAL 
ATIRIBUTES FUR THE SPECIFIED STATION PRIUK TH THE LOWICAL MOVEs 


SYNTAX! 

<MUVE STATION STATEMENT>32®MUVE STATIUN <STATION ID><TO PART> 
<READY PART><STATION ATTRIBUTE LIST> 

<STATION ATTRIBUTE LIST>33= <FMPTY>/UPUATE<AVAPTER SPECIFICATION? 
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<TERMINAL SPECIFICATION><MODEM SPECIFICATIUN> 
SALAPTER SPECIFICATION> 3 tm@<EMPTY>/AUAPTER<ADAPIER TYFVE> 
<AUAPTER TYPE>S8@<UNSIGNED INTEGEK> 
<TERMINAL SPECIFICATION> 2 2=<tMPTY>/TERMINAL<IEKMINAL ID> 
<TERMINAL I[D>t2e<TERMINAL IDENTIFIERD 


AVe bP CONTROL STATEMENT 
A NEW CONTROL STATEMENT» OP» ALLOWS Tht USER TU CALL THE SYSTEM/ 
UCSTATUS PROGRAM FOR MCSITI. 


SYNTAX 


<DUMP STATEMENT> 822 DP<UUTPUT PART>(<OPTLONS LIST>) 
<OUTPLT PARTE seS1TE/REMOTE 


SEMANTICS 

THE DP STATEMENT CAUSES SYSTFM/MCSII TU PROCESS SYSTEM/DCSTATUS. 
THe SITE UUTPUT PART WILL CAUSE THAT PROGRAM TU GUTPUT ITS ANALYSIS 
10 A LINE PRINTER OF THE SITE» THE RENOTE OPIION WILL CAUSE 


THEQUTPLUT TO BE SENT TO THE REMOTE CALLEKe THE <UPTIONS> AVAILABLE 
ARE DEFINED IN THE SYSTEM/ DCSTATUS DOCUMENTATION ~ 


DP REMOTE CSTATIUN 45 TERMINAL 23 LINE Lo le 1293 


Ve RELEASE CONTROL STATEMENT 

MCSIE wIkLt NOW ACCEPT CONTROL OF STATLUNS FROM ANUTHER MCS ANO A 
NEW CONTROL STATEMENT RELEASE ALLOWS THE USER TO SPECIFY THAT A 
STATIUN CURRENTLY UNDER MCSIT S CUNTRUL MAY Bet PASSED TO ANOTHER 
MCS, 


SYNTAXS 


<RELEASE STATEMENT>SS82RELEASE <STATIUN ID? TO <mMCS 10> 
<MCS [D>sta<MCS NAME>/MCS NUMBER> 

<MCS NAME S8a<MCS TDENTIFIER> 

<MCS NUMBER>23e<UNSTONED INTEGER? 


SEMANTICSS 
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MOST WILL ACCEPT CONTROL OF A STATION FROM ANUTHER MCS» THE 
STATUS UPTIONS» READY AND ENABLED» WILL te SET TO THE VALUES OF THE 
STATION STATUS FRUM THE SYSTEM, INDICATEU IN THE PASSING MESSAGE Ie 
Loe IF THE STATIUN IS NUT READY WHEN IT IS RECEIVED ITT WILL BE 
LEFT NOT READY BY MCSIL UNTIL AN ALTER STATEMENT TO CHANGE THAT 
ITem IS MADE BY THE USER. 


THE RELEASE CONTRUL STATEMENT WILL UNCUNDITIONALLY PASS THE 
SPECIFIED STATION TO THE SPECIFIED MCS. If TRAT MCS IS NOT 
CURRENTLY RUNNING THE SYSTEM WILL ATTEMPT TO FIRE IT UP. 


KXAMPLE? 
RELEASE TCSAA TO SYSTEM/CANOES 


Vie SM SPO CUMMAND 


{Tt IS NOw POSSIBLE TO ENTER MCSII CONTROL COMMANDOS DIRECTLY FROM 
(He SPQ. THIS MAS BEEN IMPLEMENTED USING THE SM “ SEND TU MCS @ 
SPU COMMAND. 


SYNTAX? 


<MIX INDEX> Smt <MCSII CONTROL STATEMENT> 
<MIX INDEX> 888 MIX NUMBER OF MCSTI STACK 
<MESITI CONTROL STATEMENTU> 882% <CONTROL STATEMENT BLOCK> 


REFER TO THE RELEVANT DOCUMENTATION OF MCSII FOR THE SYNTAX OF 
<CUNTROL STATEMENT BLOCK> 


tXAMPLE, 


713 SM & ATTACH M3323 ALTER M332 ENABLE = TRUE 
713 Sm ts TO ALL OATACOM FINISHES IN TEN MINUTES 


AF oA SYNTAX ERROR IS DETECTED IN THE CONTROL STATEMENT» THEN THE 
MESSAGE weaSITE ERRee* WILL BE DISPLAYED. IF A DCWRKITE ERROR IS 
DETECTED, THEN THE MESSAGE w*eDCWRITE EKROR®** WILL BE DISPLAYED. 


IN BUTH CASES» THE PRINTER FILE WILL BE UPENED AND THE RELEVANT 
SYNTACTIC ERROR INFORMATION WILL BE WRITTEN TO THE FILES 
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NOL 


u0167 NOL © INITIALIZE REIRY = 10°23°72 
THIS PATCH ADOS THE ABILITY TO RESET THE RETRY BYTE TO ITS INITIAL 
VALUEs SYNTAX IS3 


INATIALIZE RETRY 


0168 NDL = BYTE VARIABLE - 10e23"72 

THLS PATCH ALOS A NeW BYTE VARIABLE TO Tht EXISTING LIST? IRs THIS 
BYTE VARIABLE IS USED TO INTERROGATE ThE CLUSTER Ik REGISTER. IT 
1S ALSO NOW POSSIBLE TO TREAT A BYTE VAKIABLE AS A BITVARTIABLE BY 
VESIGNATING UNE BIT OF THAT BYTF VARIABLE? 


<bIT VARITABLE>t32® <bYTE VARIABLE> C<61T DESIGNATON>) 
LXAMPLE 8 


TALLY €11308] # TRUE 
IF Inkf€9] THEN 


AUX CLINECTALLY(C0OJ))) €15] 32 
LIn€ (TOGfO)). 


THe NEW READ ONLY BYTE VARTABLE, Ike, WILL ENABLE THE USER TO 
INTERRUGATE THE “INPUT REGISTER" OF THE UCPe Jt Ik FS STORED INTU 
ANUTHER BYTE VARIABLE ONLY BITS Of7 ARE STUREDs IR BIT DESIGNATORS 
MAY dE O°9. 


1c 
tc 
tH 
oOo 
Bc 


WOL © SwlTCH GU TU STATEMENT : lose3e7e2 


THE SWITCH GU TO STATEMENT ALLUWS THe USER TU BRANCH TO A LABEL 


UO169 NOL = SWITCH GO TO STATEMENT = 10r2ae72 PASE 78 


VEPENDING ON THE VALUE OF THE SPECIFIED BYTE VARIABLE. 


<OWITCH GU TO STATEMENT> 82260 TO <BYTt VARIAWLE>, 
(<LABEL LIST>). 


<LABEL LIST>tsecLABEL>/<LABEL>s<LABEL LIST> 
EXAMPLE? 
GO TO TALLYLO)» C7» 105 1). 
THE ABOVE STATEMENT WOULD EFFECTIVELY GENERATE THE FULLOWING? 


IF TALLYCO] EWUALS O THEN GO TU 7. 
IF TALLY(fU) EWUALS 1 THEN GO TO 10. 
IF TALLYLU] EQUALS 2 THEN GO TO 1. 


IF THE VALUE OF THE <BYTE VARIABLE> IS GUT OF RANGE» PROCESSING 
WILL CUNTINUE AT THE NEXT STATEMENT. 


THe CUMMA IMMEDIATELY FULLOWING THE BYTE VARIABLE IS OPTIONAL. 


bO37U NDI © CARRIAGE CONTROL = 10°30°72 


THAS PATCH DUES THE FOULLUWING? 


le DELETES THE VARIANT TOGGLE “"SKIPLINES™ WHICH WAS NOT 
IMPLEMENTED CORRECTLY AND WAS MISLEADINGS 


2e AODS VARIANT TOGGLE “SKIP" WHICH IS SET BY LOGICAL 170 OR 
MCS*S TO INDICATE SKIP Tm CHANNEL ACTIONS 


3e ADDS VARIANT TOGGLE "SPACE" WHICH IS SET BY LUGICAL I/0 
OR MCS*S TO INDICATE SPACE LINES ACTIUNS 


4e ADDS VARIANT TUGGLE "TAB® WHICH MAY BE SET BY MCS TO 
INDICATE TABULATIUNS 


Se ADDS BYTE VARIABLE SKIP CONTRUL™ WHICH CONTAINS THE 
NUMBER OF SPACES OR THE CHANNEL NUMBER TO SKIP To, IT 
CAN BE SET BY LOGICAL I/N OR MCS"5. 
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Uoz7z NUL z NUL & DUFPROGEN UNITE > Lorgucr2 

NDK NOW CALLS OCPPROGEN AS A PRUCEDURE KATHER THAN KUNNING IT AS A 
PRUGRKAM, THUSs DOCPPROGEN MUST BE BOUND TO NOL FRION TO EXECUTIUN, 
UNKY ONE PRINTER FILE ITS NUW PRUDUCED BY NUL/DCPPRUGEN AND SYNTAX 
ERRORS IN ETTHER PORTION WILL CAUSE "SNTX" NOTIFICATION. SYSTEM/ 
UCPCUDE AND SYSTEM/NIF ARE NOT LUCKEL IF SYNTAX ERKORS OLCUR IN 
EITHER PHASE. SYSTEM/REQUESTIMAGE LS NEVEK LUCKED, 


VHe METHOD OF CREATING SYSTEM/NDL HAS NOW CHANGED. AFTER COMPILING 
SYSTEM/DEPPRUGEN AND SYSTEM/NDL WITH ALGOL THE BINLEK MUST BE KUN 
TO BIND SYSTEM/DCPPROGEN LINTON SYSTEM/NUL» WHEN BINUING, A STACK 
CAND ?@STACK#2000 MUST BE PUT IN THE CONTHOL DECK TU AVOIL STACK 
OVERFLOW, THUS A PROPER BIND OFCK WUULD BES 


@BINC SYSTEM/NOL BINDER LIBRARY 
@OUNDER FILE HOST ® SYSTEM/NOL 
@STACK22000 

QUATA 

BIND DEPPROGEN FROM SYSTEM/=3STUP 
PEND 
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PACKDIR ° 


vO138 PACKUIR ©* O9*25"72 


PART [8 Huw TO USE PACKUIR 


PACKUIK CAN BE USED 10 LIST ODISKPACK AND NATIVE MODE DISK 
UIRECTURILES MUCH IN THE WAY LISIDIRECTORY LISTS HEAD@PFRTRACK 
FILES. THE PARAMETER PASSED Th PACKUIR SPECIFIES THE DIRECTURY TO 
BE LISTED AND THe FORMAT OF THE LISTING. 


INKUT PARAME TEN 

THE INPUT SHUULD BE A STRING UF CHARACTERS ENCLUSED IN QUOTES» 
THAS STRING IS MADE UP OF "KEYWORD SUBSTRINGS™ (CONTAINING LETTERS» 
DIGITS» SLASHES» ANU EWUAL SIGNS) THAT ARE StPARATED BY BLANKS AND/ 
UR CUMMAS, THAT Se A PARTICULAR KEY PHRASE MAY NOT CONTAIN ANY 
EMBEUDED BLANKS BUT PHRASES MAY BE SEPARATED BY AN ARBITRARY NUMBER 
UF BLANKS AND COMMASs THE KEY PHRASES CAN UCCUR IN ANY ORDER ON 
[HE HUN CARD. 


THE FULLOWING KEY PHRASES ARE ACCEPTED! 


MAP SPECIFIES THAT THE OISK CHECKERBOARD CA DISPLAY OF 
ALLUCATED AND AVAILABLE SEGMENTS) IS TU BE PRINTEDs 
DEFAULT IS NUMAP. 


NOMAP SUPPRESSES THE CHECKERBOARD LISTING COEFAULT VALUE)» 


UISK SPECIFIES THAT THE OLRECTOKY TO BE LISTED IS UN A 
HEAD@*PER*®*TRACK OISK UNIT CleEos KIND #& OISK). 
DEFAULT IS UN DISK PACK CKIND & PACK), 


NAME = ABL/DEF Seo e/XV2 
THIS INDICATES THE NAME OF THE DIRECTORY 10 BE LISTED. 
IN ThE CASE OF UTSK PACKS» THE FIRST QUALIFIER IS 
USED FUK THE PACK NAME. IF THE WHOLE PACK IS TO BE 
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LISTED» JUST COLE NAME © PACKNAME >» 
ABC/DEF/ eo ee/XYV2 


THIS IS THE SAME AS NAME = ABC/DEF/oee/XYZ» ONLY THE 
NAME CANNOT GE A RESFRVED KEYWORL CSEE ABOVE). 


BASICALLY» THE SAME FOUR LISTINGS FRUVIDED BY LIBSTOIRECTORY ARE 
PRUDUCED BY PACKOIKs HOWEVER» CERTAIN ADDITIONAL DIAGNOSTIC 
UUTPUTS ARE AVAILABLE WITH PACKDIR.» 


MAIN LISTINGSs THE FIRST TWO LISTINGS ARE THE MAIN OUTPUT PRODUCEDs 
THE FURST LISTING IS A UDISPLAY OF ALL THe FILE NAMES IN THE 
UIKECTURY GIVEN 8Y NAMESe THIS LISTING IS FURMATTED AS A TREE 
STRUCTURE TU INDICATE THE VARIOUS SUBLEVELS UF ThE FILES IN THE 
VIHECTORY. IT IS PRINTED IN THE SAME URDER AS THE FILES OCCUR IN 
THE DIRECTORY. THE SECOND LISTING INDICATES LUCATIUNS ON THE 
HEADEK AND ALL THE ROWS OF EACH FILE GIVEN IN THE FIRST LISTING. 
The "LOCATTUN® INCLUDES THE UNIT NUMBER ANU SEGMENT ADDRESS. 
UNFORTUNATELY» THE "UNIT NUMBER® PRINTED FOR Trt HEADERS IS ALWAYS 
A ONE (THE BASE PACK INDEX NUMBER) RATHER THAN THE ACTUAL 
ELECTRUNICS NUMBER. 


MAP LISTINGS? THESE TwO LISTINGS cPRUDULED ONLY IF MAP 1S 

SPECIFAEU) GIVE AN INDICAITON OF HUW MUCH SPACE IS AVAILABLE AND 
HUn MUCH SPACE IS IN USE ON THE VULUMES BEING MAFPED. It NAMES 
SELECTS UNLY A SUBUITRECTORY» THESE LASITINGS ARE MISLFAUING, 

FURTRERMOKE» NU ACCUUNT 1S TAKEN OF THE VOLUME LABELS ON THE DISK 
PALKSe FINALLY» THE HEADERS ARE INCORRECTLY INDICATED AS BEING ON 
UNIT GNE» CAUSING THE CHECKERBOARD TU bE INCURKECTLY ANALYZED. 


THE USE OF THE UPERATOR COMMAND D1 


eeu e890 eo8@ see 2 Oe Bee ee annee a2 
4 


THE OPERATUR CAN INVOKE ANY UNE OF THREE DIRECIOKY LISTING PRUGRAMS 
wWlith TRE KEYbKUARD CUMMAND LTRe IF HE SIMPLY INPUT DIR WITH NO 
PARAMETERS» LISTODIRECTURY IS CALLED TU LIST THE MASTER HFAD@PER= 
TRACK CHPT) UIRECTURY. IN ORDER TO LIST THE UIKECTORY OF AN 
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"INTERCHANGE DISK PACK», HE SHOULU INPUTS 
OLR ICs PKNW 
OR 
DIR IC» PACKNAME 


AN THIS CASE» LISTPACK IS CALLED. IT 1S IMPURTANT THAT “IC® APPEAR 
FIRST» wWiTHUUT ANY IMBEDDED BLANKS. ANY OTHER INPUT CAUSES KEYIN 
10 PLACE QUQTE MARKS AROUND THE PARAMETER AND FASS THE ENTIRE 
STRING TO PACKUIR., NOTICE THAT THE OPERATOR SHOULD NOT INPUT THE 
WUUTES. 


PAnKT Ili LOGIC DESCRIPTION UF PACKDIR 


PACKUIR WAS DERIVED FRUM LISTOTRECTORY» AND ITS BASIC FLOW IS MUCH 
THE SAME, FILES USED HY PACKDIR ARES 


LINE = ALL PRINTED OUTPUT IS PRODUCED ON THIS FILE WITH A 
RECURUSIZE OF 132 CHARACTERS (22 WURDS), 


INFO * AN INTERMEDIATE WORK FILE THAT IS USED TO STORE THE 
HEADEK AND ROW LOCATIONS. INFG IS ACCESSED 
SEQUENTIALLY WITH A RECURO SIZE OF 30 CHARACTERS (5 
WURUS) AND IS PURGED AT THE END OF A JOB. 


ee A FILE THAT IS USED 1U OPEN THE MASTER DIRECTORY AND 
ALL THE FILES AND SUBFILES IN THAT DIRECTURY, 


FLUW OF PACKUIR 
AFTER THE INFUI PARAMETER STHING IS ANALYZED» PACKDIR OPENS THE 
SELECTED UIRECTURY AND MAKES UP TU FUUR PASSESt 


FIRST PaSS DUKING THIS PASS» EACH FILE IS OPENEDs ITS ROW 
AND HEADER LOCATIONS ARE SAVED UN INFUOs AND ITS 
NAME UISFLAYED ON LINEe THE MAIN RUUTINE FOR 
THE FIRST PASS IS PRKUCEDE» WHICH IS CALLED 
RECURSIVELY TO HANDLE SUBFILES. (SINCE THERE 
IS NU WAYs CURRENTLY» TU SIMPLY READ THE 
HEAVERS UF FTLES ON DISK PACKS» AS 
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LISTDIRECTONY DOES FOR HPT DISK FILES, PACKDIR 
MUST UPEN ALL THE FILES 10 OBTAIN THE ROW 
INFORMATIUNS) . 


SECOND PASS DURING THIS PASS» THE RUN LOCATIUNS ARE READ 
BACK FROM INFGs DISPLAYED UN LINE ANOs IF MAP 
IS SELECTED», INPUT TUL THE SURT> THE MAIN 
ROUTINES FUR THIS PASS ARE It, WHICH READS THE 
RECURDS FRUM INFO AND SENUS THEM 10 THE SORT» 
ANU AREAMAP, WHICH PRINTS THE HEADER AN ROW 
ADURESSESs 


THIRCG Pass CONLY IF MAPPING) DURING THIS PASS» WHICH IS 
THE OUTPUT UF Tht SORT UN RUW LOCATIONS, "AnEAS 
THAT CAN Be MADE AVAILABLE WITH THE REMOVAL OF 
ONE FILE® AKE NISPLAYED UN LINE ANU THE SURTED 
ROW LOCATIUNS ARE SAVED ON INFU, 
CUNFORTUNATELYs THESE ARE MISLEAUING BECAUSE 
THe HEADER AND ROW UNIT NUMBERS ARE 
INCOMPATIBLE.) THE RUUTINE OP RETRIEVES THE 
RECURDS FRUM THE SORT» SAVES THEM UN INFO. AND 
CALLS PRINT TU PRODUCE THE REPORT. 


LAST PASS CONLY IF MAPPING) DUKING THIS PASS» THE SORTED 
ROW LUCATIUNS ARE READ BACK FROM INFU, AND THE 
ROUTINE LISTIT IS CALLED TO PRINT THE 
CHECKERBOARDS OF THE VAKIOUS UNITS CTHMESE AGAIN 
ARE WRONG BECAUSE OF Tht UNIT PROBLEM), 
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THERE HAS BEEN A GENERAL IMPROVEMENT OF THE STREAM 1/0 FEATURES IN 
Pei. A FULL EXPLANATIUN UF THE FUNCTIUN GF MOST OF THESE FEATURES 
CAN BE OBTAINED FROM Trt PL/IT LANGUAGE INFURMATION MANUAL (5000201). 


OPtn STATEMENT 


THE FOLLOWING UPEN UPTIUNS HAVE BEEN IMPLEMENTED! 
le PAGESIZE (<SCALAR*EXPRESSIUN>) 
20 LINESIZE (<SCALAR@EXPRESSIUN>) 


WHERE THE EXPRESSION REPRESENTS LINE SIZE» IN CHARACTERS» 
FUR A STREAM OUTPUT FILE, 


A NEW OPEN OPTION HAS BEEN ADDED FOR STREAM UUTPUT FILES! 
TAB (KSCALAR*EXPRESSION>» woe) 


WHERE THe <SCALAR@EXPRESSIUON> LIST» DEFINES THE TAB 
CULUMNS TO BE USED FuR LIST AND DATA OTRECTED PuT 
STATEMENTS» Uk FUR TAB FUIRMAT ITEMS. 


THE EXPRESSIONS MUST BE ASCENDINGs PUSTITVE AND LESS THAN THE FILE 
LIne ST2te ALL ERRUNEUUS EXFRESSIUNS WILL Be JGNUREL, 


EXAMPLE? 
OPEN FILE (SYSPRINT) LINESIZF (132) Tab (€200400105)3 


if USER TAB SETTINGS ARE NOT SUPPLIED» DEFAULY TABS WILL BE USED 
Cle 255 494 730 47n 121 > aeode 


BULALTIN FUNCTION 
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THESE STREAM*IU@RELATED BUILTIN FUNCTIONS ARE NOW IMPLEMENTEUE 


de CUUNT (<FILE*NAME>) 
@e LINENU CKPILE@*NAME>) 


DIRECTED FORMATS 


THE FULLOWING FURMAT ITEMS HAVE BEEN IMPLEMENTED? 
Le LINE (<SCALAR*EXPRESSION>) 


WHERE THE EXPRESSION RFPRESENTS THE NEXT LINE NUMBER TO 
BE ADVANCED IQ. 


Ze BeFORMAT ITEM CBIT*STRING FURMAT) 
30 PeFORMAT ITEM (PICTURE FORMAT) 
4e TABSFURMAT ITEM 


WHICH CAUSES MUVEMENT TO THE NEXT USER OR DEFAULT TAB 
SETTING» RELATIVE TO 1HE CURRENT CULUMN. 


DATA*DIRECTED 10 


GET*DATA AND PUT@DATA STATEMENTS ARE NUW FULLY IMPLEMENTED. 


TYPE CUNVERSION 


COMPLETE UATA TYPE CUNVERSIUNS ARE NOW PERFURMED FUR LATA*LIST AND 
STREAM ITEMS. 


LXAMPLE? 


UCL CS CHAR(6) INITIAL (9012364")3 
PUT EDITCCS) CFC10))3 


bBIf STRINGS ARE NOW ALLUWEL IN INPUT DATA STREAMS. 
WARNING! 4 


THE UEFAULT “UNITS™ ATTRIBUTE FOR STREAM FILES WILL BE 
CHARACTERS. THEREFORE A FILE ORCLARATIUN FUR A PRINT FILES 


DCL FILE CPRINT) ENV CMAXRECSIZE#22)3 
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nike NOT PRODUCE THE LESTREU RESULT THE USER SHUULD SPECIFY 
UNITS = *wORDS@ OR MAXRECSIZE = 132» TU GET THE PROPER RECORD 
Sldte CNOTES THE OASH HAS BEEN USED FUR THE SINGLE QUOTE.) 


Coes woos. we eee, SERRE cece etches 

PL/I TG Pu/I BINDING 15 NUW IMPLEMENTEDe THE BINDING PROCESS WILL 
GENEKALLY CUNSIST UF BINDING A GROUP UF EXTERNAL PRUCEDURES TO A 
"HUST™ PROCEDURE « COMMUNICATIUN BETWEEN THE PRUCEDURES IS 
PERKFURMED THROUGH COMMON EXTERNAL DECLARATIONS WITHIN THE 
PRUCEDURES AND PARAMETERSse ANY PL/I PRUCEUURE WITHOUT PARAMETERS 
MAY BE DESIGNATED AS THE “"HOST™ FRUCEDURE. 


10 BIND A SEPARATE FROCLOURE TO A HOST» THE SEPARATE PROCEDURE MUST 
BE DECLARED EXTERNAL IN THE HOST. 


HOSTIPROC3) 
DCL SEPARATE tNTRY (CHAK(#)) EXTERNAL 
DCL CHAR CHAR(CH) INITC#ABCDEFGH=)3 
CALL SEPARATECCHAR)3 

END HOST 


SEPARATE SPROC(C)3 
DCL C CHAR(C#)3 
PUT LISTCC)3 

END SEPARATE3 


CNUTE THAT THE UASH HAS BEEN USFD FOR THt SINGLE QUUTE) 


It THE NAME OF THE CODE FILE OF "HOST" IS HOST/HUST AND THE NAME OF 


THE CUuDE FILE OF "SEPARATE" 1S SEPARATE/SEPAKATE THEN THE BIND DECK 
Is: 


?HIND BOUND WITH BINDER LIBRARY 
YULNUER FILE HOS! = HUST/HOST 

@UATA 

BIND SEPANATE FRUM SEPARATE/SEPARATES 
sTuP 
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7END 


WHEN "BOUND" 1S KUN» THE RESULT 15 THE CHARACTER STRING *ABCDEFGH= 
UN THE SYSPRINT PRINT FILE. 


HES IRICTIUNS 

he ANY EXTERNAL ENTRY CUNSTANT PASSED A PARAMETER CAN ONLY Bt BOUND 
TU A HOSTse CTHE PRUCEVURE "SEPARATE" IS UNLY VALIU WHEN BOUND. 
IF TRE CODE FILE SEPARATE/SEFPARATE 15 RUN» AN INVALID QPERATOR 
WILL RESULT.) ONLY A PROCEDURE WITH NU PARAMETERS MAY BE USED 
AS A HOST. 


2e THE FIRST EXTERNAL ENTRY CUNSTANT MUST BE SPECIFIEL IN THE BIND 
Deck, 


EXAMPLES 


HHtPROCS 
OCL SEP1 ENTRY EXT, 
SEP2 ENTRY CCHARC#) EXT 
CALL SEPZC“anCOEFG=)3 
ENU HKH3 
SEPIsSPRUC3 
SEPZtENTRY(C)3 
DCL ¢ CHAR(#)3 
PUT LISTC(C)3 
END StPis 


CNOTE THAT THt DASH HAS BEEN USKD FOR THE SINGLE GUUTE) 


ASSUMING THE CODE FILE NAME FOR HH 1S He THE BIND SHOULD BE AS 
tOLLOWS: 


@7B1ND B BINDER LIBRARY 
WOUND FILE HOST = H 
?DATA 

BINO SEP1 FROM SS 
?END 


WHEn 8 IS RUN» THEN ThE RESULT WILL BE THE CHARACTER STRING 
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"ABCUEFG" UN SYSFRINT.s 


HANOLING UF STATIC EXTERNALE 5 


Lf A VARIABLE TS DECLARED STATIC EXTERNAL IN BOTH THE HOST AND THE 
SEPAKATE PRUCEDURF» <THE INITIAL VALUES IN THE HUST ARE THE ONES 
USED WHEN BOUNU. JF A VARIABLE IS DECLAKED STATIC EATERNAL IN ONLY 
THe SEPARATE PROCEDURE» THE INITIAL VALUES OF THAT VARIABLE ARE 
USED. 


EXAMPLE 
HUSTIPROCS 


DCL AC4) STATIC EXTERNAL 
INIT €1525354)> 
SEPARATE ENTRY EXTERNAL? 
CALL SEPARATES 
KENU HUSTS$ 
SEPARATE SPROL3 
DCL AC4) STATIC EXTERNAL INIT(5565756)>5 
AiC4) STATIC EXTERNAL INITC9s10e110120)3 
PUT DATA (A»A1)3 
tNU SEPARATE3 


When BOLND AND RUN THE RESULT WILL BE 


AC1l) 2 1, AC2) = 2» AC 3) 2 3» AC4) = 4s, 
A1lCL)I = Gp ALC2) 2 10% A1C3) w@ ldo ALC4) * 123 


NOTE THAT ANY EXTERNAL STATICs CONTROLLED OR BASED VARIABLE SHOULD 
UE INITIALIZED BEFORE IT IS USED IN A DECLARATION? 


tLXAMPLE 3 


DCL 
1 510K) STATIC, 
2 ACX) INIT(801)2802)5803)eB04) )» 
1 92 STATIC, 
2 pC 2K) INITICO1) 6 CO220CC 3) CCM) Do 
1 93 STATIC, 


2 CC2aX) INTTC1220304)>» 
x STATIC INITC2)3 


SHUULU BE DECLARED IN THIS ORDERS 


DCL 
xX STATIC INITC2)> 
153 STATIC, 
2 CO2X) INITC1920304)> 
1 S2 STATIC, 
2 BC2aeX) INITTCCO136C02)0003e C04) D> 


1 S1CX) STATIC, 
2 ACX) INIT(CBC1)0B02)0803)2804) 3 


VAKTASLES WHOSE ORDER OF DECLARATIUN WILL CAUSE THE PROGRAM TO RUN 
INCORRECTLY WHEN BOUND WILL GET A LEVEL THREE ERROR “ESSAGE. 


NOBINUINFU CONTROL CARD OPTION 


LF NOBINDINFO IS SET» ThE COMPILER WILL NUT PUT INFURKMATION FUR THE 
BINDER IN THE COLE FIlt» NOBINDINFO 1S KESET BY DEFAULT. 


v0155 PLI = PACKED PICTURES 


- 
agen oe eeeaeuae eaeeoeeeanehe - 


A WEW PICTURE CLASSIFICATION HAS BEEN ADDED Tu THE PLI LANGUAGE. 
THE CLASSIFICATION IS PACKED PICTURES AND ALLOWS THE FOLLOWING 
PICTURE CHARACTERS IN A PICTURE ATTRIBUTE? 


H SPECIFIES THAT THE ASSUCEATED PUSITIUN WILL LONTAIN A 4m 
BIT PACKED DECIMAL UIGIT 


S SPECIFIt¢S THAT THe ASSUCIATED FUSITION WILL CONTAIN A 
PACKED 4@*BIT SIGN CEITHER 1101 UR 1100) 


& 
vo 6SPECTIPIES THt IMPLItD PACKED DECIMAL FOINT 
EXAMPLE 3 


DCL Pi PICTURE *"HHHVHHS"3 
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THE PRECISION OF P1 IS (5e2) AND F1 WILL OCCUFY SIX 4e= 
BIT BYTES INTERNALLY. 


A USER SHOULD USE PACKED PICTURES INSTEAD OF THE DECIMAL FIXED 
ATTRIBUTES TO INSURE THE CORKECT INTERNAL REPRESENTION FOR NUN®@ 
SURRUUGHS PLI PRUGRAMS. 


v0174 PLE © ENTRY VARLABLES TMPLEMENTED a 10°30*72 
ENTHY VARIABLES ARE NOW IMPLEMENTEDs AT THIS TIMEs THERE IS NO 
PARAMETER CHECKINGs 


VO175 = PLE. * EXPLICIT ATTRIBUTE IMPLEMENTED = 10=30°72 

A DEFAULT GECLARATION OF DFT CNOT EXPLICAT) ERROK WILL CAUSE AN 
EXKUR MESSAGE TO 6E GENERATED FOR ANY IDRNTIFIER NUT EXPLICITLY 
VECRARED. 


v0225 PLY © PLI FILE DECLARATIUNS = 12°18°73 


FILE DECLARATIONS IN PL/1 HAVE BEEN EXPANDED AND IMPROVED, 


Posi LANGUAGE FILE ATTRIBUTES 

SYNTAX CHECKING OF PL/I FILE ATTRIBUIES HAS BEEN EXTENDEDse THE 
FOLLOWING AITRIBUTES HAVE NOT BEEN IMPLEMENTED AND A SYNTAX ERROR 
WILL BE GENERATED IF AN ATTEMPT IS MADE 10 SPECIFY Them 


BACKWARDS» KEYEDs EXCLUSIVE» UPDATE» UIRECT 


ATTEMPTING TO SET CUNFLICTING PL/I ATTRIBUTES EXCEPT EXCLUSIVE WILL 
NUW GENERATE A SYNTAX ERRORS 


+ 


THe FOLLOWING 19 A LIST OF PL/I FILE ATTRIBUTES AND THE ATTRIBUTES 
THAT DU NUT CONFLICT wilTH THeM. 
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STREAM INPUT» OUTPUT PRINT 


RECORD INPUT» UUTPUT.s UPDATEs SEQUENTIAL, OUIRECT» 


BACKWARUSs KEYED 


INPUT STREAM» RECURDs SEQUENTIAL» DIKECTs BACKWARDS,» 
KEYED 

OUTPUT STREAMs KECORD>» SEQUENTIAL» DIRECT.» PRINT» KEYED 

UPLATE RECORD» SEQUENTIAL,» DIRECT» KEYED 


SEGUENTIAL RECORD» INPUT, UUTFUTs UPLATE» GACKWARDSs KEYED 


VIRECT INPUT,» UUTPUT» UPDATE» KEYED 


BACKWARDS RECORD» INPUT» SFQUENTIAL 


PRINT STREAM,» UUTPUT 


KEYED RECORD» INPUT» QUTPUT» UPLATE» SEQUENTIAL» DIRECT 


Pk/T SYSTEM FILE ATTRIBUTES 


FILE UPTIONS OR ENVIRONMENT SECTION CURRENT SYNTAXS 


le 


dé 


Jo 


INSTDE 


THE CURRENT SYNTAX FOR KINDs BUFFERS» SPACE» MAXRECSIZE 
AND SAVEFACTUR WILL STILL BE KECOGNIZED. 


BLOCKING WILL NU LONGER BE RECOGNIZEUs BLOCKSIZE SHOULD 
BE USED. 


THE SYNTAX FOR TITLE HAS BEEN CHANGEDs SEt TITLE UNDER 
THE NEW SYNTAX. 


A FILE OPTIUN OR ENVIRUNMENT DECLARATION A SYSTEM FILE 


ATTRIBUTE HAS Unt OF FOUR SPECIFICATIONS. 


le 


2e 


NUMERIC REQUIRES A UFCTMAL INTEGER*CONSTANT GREATER THAN 
ZERU SPECIFICATIONs EoGe MAXRKECSIZE *& 105 AREAS 


B Preee 


MNEMONIC REQUIRES A CHARACTER@STKING MNEMONIL ENCLOSED IN 
SINGLE QUOTES» EsGe KIND #® #D)SKh=>» MYUSE & @ 
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OUT" se068 


36 STRING REQUIRES A CHAKACTEM STRING ENCLOSED IN SINGLE 
GUOTESs EsGe FORMMESSAGE @ SUSE FUR 1040*se00 


4 SUBTITLE IS A STRING VALUED ATTRIBUTE THAT HAS SOME SYNTAX 
RESTRICTIONS. SUBTITLES W1TR SLASHES MUST BE 
ENCLUSED IN DOUBLE QUUIES ANU OOUBLE QUOTES MAY 
ONLY APPEAR IN PAIRS EtNCLOSING AN ENTIRE 
SUBTITLE» EoGse TITLE © “A/"b/CH/De, 


5e NULL VALID UNLY FUR ATTRIBUTES WITH THE MNEMONICS UF = 
TRUE= AND *FALSE®se THE ATTRIBUTE WILL BE SET TO 
TRUE « EeGe UPTIUNALsooeITS THE SAME AS OPTIONAL 
Z@=TRUEM+ eae 


CNUTE TRAT THE DASH HAS BEEN USFOD FOR THE SINGLE QUOTE.) 
SEMANTICS! 


<FiLte OPTIONS DECLAKATIUND> 332 
UPTICNSCK<INITIAL SYSTEM FILE ATTRIBUTE LIST>) 
<FiLE ENVIRONMENT DECLARATION> 83 
ENVIRONMENTCKINITIAL SYSTEM FILE ATTRIBUTE LIST>) 
<INITIAL SYSTEM FILE ATTRIBUIF LIST>3%e 
<INITIAL SYSTEM FILE ATTRIBUTE>/ 
<INATIAL SYSTEM FILE ATTRIBUTE LIST>>» 
<INITIAL SYSTEM FILE ATTRIBUTE> 
SINITIAL SYSTEM FILE ATTRIBUTED 33 
<INTEGER VALUE SYSTEM FILE ATTRIBUTE> = <ENTEGER@CONSTANT>/ 
<STRING VALUED SYSTEM FILE ATTRIBUTE> © <STRING>/ 
<REAL VALUED SYSTEM FILE ATTRIBUTE> & <INTEGER*CUNSTANT>/ 
<BUOLEAN VALUED SYSTEM FILE ATTRIBUTE> # “<BOGLEAN MNEMONIC>#@/ 
<BUULEAN VALUED SYSTEM FILE ATTRIBUTE>/ 
DENSITY = “<DENSITY MNEMONIC>#/ 
PARITY & @<PARITY MNEMONIC>®/ 
KIND # @<KIND OPTION>#=/ 
LABELTYPFE = *<LABELTYPE MNEMONIC>®/ 
EXTMQDE = *<EXTMOUE MNEMUNIC>®/ 
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PROTECTION © *<PROTECTION MNFMONIC>©/ 
MYUSE * @<MYUSE MNEMUNIC>*/ 

QTHERUSE = *<UTHERUSE MNEMUNIC>°/ 

SPEED = =<SPEED MNEMUNIC>®=/ 

DIRECTION #& =<OIRECTIUN MNEMONIC>©/ 
SIZEMQDE = =<SIZEMOUE MNEMONICH®/ 
CARRIAGECUNTRUL = =<CARKIAGECUNTRUL MNEMUNIC>#/ 
FILEKINO = “<FILEKINU MNEMONIC>©/ 

UNITS ® ©<UNITS MNEMUNIC>*/UN1TS/ 
SECURITYTYPE @ S<SECURITYTYPF MNEMUNIG>#/ 
SECURITYUSE @ @*<SECURTTYUSE MNEMUNIUS® 


(PLEASE NOTE THAT THE DASH HAS BEEN UStD FUR THE SINGLE QUOTE.) 


<INTEGER VALUED SYSTEM FILE ATTRIBUTE> 312 
REEL/DATE/CYCLE/VERSIUN/SAVEFACTUR/EILETYFE/BLUCKSIZE/ 
MAXRECSIZtE/MINRECSIZE/SAREASIZE /AREAS/BUFFERS/SIZEUPE SETS 
SIZE2/) PAGESIZE/PAGE/LINENUM/COPIES/UNITNU/AREACLASS/ 
LASTSTATIUN | 

<REALVALULD SYSTEM FILE ATTRIBUTE 88s 
TIMELIMIT 

<HUULEAN VALUED SYSTEM FILE ATTRIBUTE>t8t= 
UPTIGNAL/PFLEXIBLE/OPEN/SINGLFRACK/CYLINDERMUDE/COUEFILEs 
IhTERCKANGE/SIC/DUPLICATED/SREADCHECK 

<STRING VALUED SYSTEM FILE ATTRIBUTED Sts 
TITLE SPACKNAME /FURMMESSAGE /FORMESSAGESINTNAME / 

St CURITYGUARU/SFAMILY 

<UVENSITY MNFMONIC>i te 
HIGH/MEDIUM/LOW/ SUPER 

<PARITY MNEMUNICOts= 
STANDARO/NONSTANDARD 

<KIND OPTION>8t2 
<UEVICE>/ 4 
<BACKUP DEVICE ><bACKUP UPTIUN><BACKUP UNIT>/ 
<BACKUP DEVICE><BACKUP UPTIUN>/ 
<HACKUP GFPTION><BACKUP UNIT>/ 
<BACKUP OPTLUN> 
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<ULVICEL> sts 

<UISPLAY MNEMUNIC>/ 

<REMOTE MNEMONIC>/ 

<PAPERK HFADER MNEMONIC>/ 

<PAPER PUNCH MNEMUNIC>/ 

<CARD REAUFR MNEMUNIU>/ 

<UISK PACK MNEMONIC>/ 

<CAKD PUNCH MNEMONIC>/ 

<PRINTER MNEMUNIC>/ 

<UISK MNFMONIU>/ 

<TAPE MNEMONIU> 
<BACKUP DEVICF>tt2 <CARUD PUNCH MNEMONIC>/ 

<PRINTER MNEMUNIC> 
<BACKUP UNIT>tiz2 <DISK MNEMONIC>/<TAPE MNEMONICD 
<ULSPLAY MNFMONIC>&3= SFO/SPUS/DISPLAY 
SREMUTE MNEMUNIC>8¢@ REMUTE/SUC 
<PAPER READER MNEMONIC>tt= PAPER/PAPERRKEADER/PTR/PAPLR READER 
<PAPERK PUNCH MNEMUNIC>8%8= FPAPERPUNCH/PTP/PAPER PUNCH 
<CARD READER MNEMUNIC>2t= READER/READERS 
S<DISK PACK MNEMONIC22 82 DISKPACK/DISPACKS/FPALK/PACKS 
<CARU PUNCH MNEMUNIC> 832 PUNCH/PUNCHES/CE 
<PRINTER MNEMUNIC>8t= PRINTER/FRINTERS/LE 
<ViSKk MNEMONIC>33= DISK/SERIAL 
<TAPE MNEMONIC>8s= TAPE/TAPES/SIAPES/TAPEYS/SPETAPE/SPETAPES 
<BACKUP UPITUN> 332 BACKUP/BACK UP 
SOTHING> Sts <CHARACTER STRING UNNSTANT> 
<BUOLEAN MNEMONIC>s3= TRUE/PALSE 
<LABELTYPE MNEMOUNIC>88= STANUARQO/OMITTED/UMITTEDEOF 
<EXTMUVE MNEMONIC>$3= SINGLE/DUUBLE/HEX/BCL/EBCDIC/ASCII 
<PROTECTION MNEMUNIC> S82 TEMPURARY/SAVE DCPRUTECTED 
<MYUSE MNEMONICat3t= CLUSEO/IN/UIT/IO 
<UTHERUSE MNEMUNIC> #22 SECURED/IN/UUT/1U 
<SPEEUO MNEMONIC>ts= FAST/MEDIUMFAST/MEDIUMSLUW/SLUW 
<UITRECTION MNEMONIC> 232 FORWARUD/RE VERSE 
<SILCEMUDE MNEMUNIC>t3= <EXIMUDE MNEMONIC> 
<CARRIAGECONTRUL MNEMUNIC> 322 STANUARD/CTLASA/UTL360 
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SPAREKIND MNEMUNICO33= 


ALGULCULDF / ALGULSYMHUL / BACKUPDISK ¢ BASILCUDE £ 
BASICSYMBUL / BKINDERSYMBOL / BOUNLCOLE / CUBOLCODE 


CUBOLSYMBUL / CUDEFILE 7 COMPILERCUDEFILE 7 CONTROLDECK 
DATA / DCALGULCULDE 7 DLALGULSYMBUL / DERKECTORY / ESPULCUDE 
ESPULSYMRUL / FURTRANCODE 7 FURTKANSYMBUL / GUARDFILE 
INTRINSICFILE 7 JUOVIALCUDE 7 JOVIALSYMBOL 7 LIBRARYCODE 
MCPCQUEFILE /PLICODE / PLYSYMBUL 7 RECUNSTRUCTIONFILE 


~ NO NON 


/ 


SEQUATA / SYSTEMDIRECTURY 7 SYSTEMDIRKFILE 7 VERSIONDIRECTORY 
/ MatGOLCObDE 7 XALGOLSYMBOL / XDASKRILE / XFURTRANCOULE / 


XFOURTRANSYMBUL 


<UNITS MNEMONIC>8t= <BOULFAN MNFMUNIC>/WURDS/CHARACTERS 
<SECURLTYSYPE MNEMONIC>% ts PRIVATE/CLASSA/SCLASSB/CLASSC 
 SSECURITY USt MNEMONIC>8 8s SECURED/IN/UUT/IO/CREADONLY/S 
WHITEQNLY/REAUWRITE 
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THe CUMPILEN WILL SEF SOME DEFAULT ATTRIBUTE SPECIFICATIONS FOR A 
FILE DECLARATION. THESE MAY BE UVERRIDOEN BY SPECIFYING THEM IN 


THE FILE UPTLONS LIST. 


de SAVEFACTUR IS SET TU UNE 
2e UNITS IS SEF TU CHARACTERS 


go MYUSE IS SET TU UUT It A FILE 15 DECLARED OUTPUT OR PRINT. 


4s MYUSE IS SteT TU IN IF A FILE 1S DECLARED INPUI 


Se MAXHFUSIZE wilt BE SET IF NU FILE uPTIUNS LIST IS 
SPECIFIED. IT witt BF SET TO 132 It THE FILE NAME IS 
SYSPRINI UR THE FILE IS DECLARED FRINT» OTHERWISE ITT WILL 


BE SFT TO B80. 


Ge AKEAS WILL BE SET TU 20 AND AREASTZE TU 1000 It KIND HaS 


BEEN SPECIFit) TU BE DISK. 


7e IF KINO HAS NOT BEEN SPECIFIED AN ATTEMPT WILL BE MADE TO 


ASSIGN IT A VALUE. 


IF FILE WAME IS SYSPRINI» KIND WILL Be SET TO REMOTE IF 
THE COMPILE IS A REMOTF ENTRY» GTHERWISE I7T WILL HF SET 


TO PRINTER. 


IF THE FILE NAME IS SYNTN» KIND WILL BE SET [OQ REMOTE IF 
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THE COMPILE IS A RKEMOTF ENTKYs UTHENWISE Ii WILL BE SET 
TO READER. 

It THE FILE I> DLCLARFOU PRINT THEN KIND WILL BE SFT TO 
PRINTERs 

It THE Fite > DECLARFU UUTPUT BUT NUT PRINT THEN KIND 
WILL BE SET 10 DISK. 

IF KIND IS SPECIFIED IN THE File OPTIONS LIST» THE 
CUMPILER SYNTAXES IT TU SEE THAT IT AGREES WITH OTHER 
SPECIFICAIIONS. 


Ae IF A FILE IS DECLARED PRINT» KIND MUST BE SET 
TU PRINTER, 

Re IF A FILE Td DFCLARFD INFUL>® KIND MAY NOT BE 
SEL TU A VEVICE APPRUPRIATE UNLY FUR UUTPUT. 

Co de aA FALE 2S DECLARED UUIFUT» KIND MAY NOT BE 
SEL TU DEVICE APPRUPRIATE UNLY FUR INPUT. 


OYOTEM Filet ATTRIBUTE INTMUDE 
INTMOQDE 15 UNCONUITIONALLY StT TU EBCUIC. ATTEMPTING TG SPFCIFY IT 
in @ FILE OPTIONS LIST WILL GENFRATE AN ERRUK UF LEVEL ZERO AND THE 
SPECIFICATION WILL HE IGNUREU. 


WUeme TELE = SEP AWATE CONCILES: > zi t2er2 

PRECEUDURES MAY NUW BE CUMPILED SEPARATELY IN PLT. THE CONTROL CARD 
UPILGN "MULTIPLE", WHEN StTs CAUSES Tht LAST NAME OF THE PROGRAM 
PILE NAME TO BE REPLACED BY THE NAME UF ThE MAIN ENTRY POINT OF THE 
PRUCLUUKEs IF StPARATE IS NUT StT» THE WAME UF THE FIRST PRUCEDURE 
WILL BR THE PROUGHAM FILE NAMF AND ALL SUBSEQUENT FROUCEDURES WILL 
HAVE THE LAST NAME UF THE PRUGRAM FILE NAME REPLACED BY THE NAME OF 
THe MAIN ENTRY PUINT OF THE FRUCEDURE. JF NEWs NEw) OR NEW2 IS 
Sei, ALL PRUCEDURES WILL BE CONTAINED IN A SINGLE NEW SYMBOLIC FILE. 
FRUCLUURES MUST BE SEPAKATED BY A CARD WITH A QUESTION MARK "?" IN 
Ie XT CULUMN ONE. 


EXAMPLE? 


Beer eee we ce cently Cone eee. a ceecnecle 

<I>CUMPILE A/B/C WITH PLI LIRRARY3 
<1>DATA 

"SET MULTIPLE" 

ONES PROCEUURE 3 

END UNE3 

? 
$1WOt PROCEDURES 

END $TWwOs 
<IT>END. 


The TWU CODE FILES AkE CALLED A/B/UNE ANU A/B/*$TWUNM, 
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PREDVICTSORT 


WOl4GS PREDICTSORT © SURT TIMTNG PRELDICTUR Q1le15"72 


Sed sane BEDE es Urey SOc tat: 

A SURT UTILITY PRUGRAM WRITTEN IN FURTRAN HAS BEEN INCLUDED IN THE 
MARK 11.4 RELEASE UNDER THE SUURCE NAME UF "SYMBOL/PREUVICTSORT" AND 
UBvECT NAME UF “SYSTEM/PREDICTSORKT%s THt QUIPUT OF THIS PROGKAM IS 
A PREDICTION OF THE RESUURCES REWUIRED (CPROCESSOR ANU INPUT*@UUTPUT) 
10 ACCOMPLISH THE SPECIFIED SORT. INPUT TU THE PROGRAM IS A 
KELATIVELY COMPREHENSIVE SET OF PARAMETERS THAT SPECIFY THE SURT TO 
bE DUNE. 

acho ae a a ae 

SINCE TRE to700 SORT IS A SOPHISTICATED PKUCESS» PREDICTION OF 
ANTICIPATED RESULTS [Se BY NECESSITY» CUMPLEXe PREUVICTION RESULTS 
SHUULD NOT Be EXPECTEU TO BE 100% ACCURATE» BUT IT IS DESIRED AND 
EXPECTED TO BE WITHIN 5% ACCURACY FUR THE MAJORITY OF TEST CASES. 
A GENERAL TENDENCY TUWARKD UVERESTIMATION RATHER THAN 
UNUERESTIMATION Had BEEN BUILT INTU ThE PRUGRAM,. PROCESSUR TIME 
ESTIMATES ARE bASED UPON A 5810 CLUCK AND 462 MICRUSECOND MEMORY. 
i/U TIME 6UESTIMATES) «6AKE) 6©BASEN) 6UFUN) 6oTME) 6OSPEED OF THE SPeCIFIED 
VEVICES AND ASSUCIATED PROUCESS(ik ESTIMATE s ELAPSED TIME ESTIMATES 
ARE BASED UPUN MAXIMUMS UF THE ASSUCTATED %I/0 AND PRUCESSOR 
ESTIMATES. ALL PREDICTIONS ARE bASED UPON THE SORT RUNNING IN AN 
UPT IMAL ENVIRONMENT WHERE THE ONLY CUNTENTIUN FOR MEMURY OR ACCESS 
TO A I/U DEVICE IS FOR AND BY THE SORT ITSELFe ELAPSED TIME 
ESTIMATES DO NUT ANTICIPATE UVERLAPPING UF I/0 EXCEPT WHERE DISk IS 
BEING UVERLAPPED wI1Th TAKE FOR ITL SOURIS.» PLEASE NOTE THAT THERE 
4S NU ACCOUNTING OF ANY TYPE UF TAPE REEL SWITCHING GR ANY KIND OF 
ACTIVITY THAI MAY REQUIRE UPERATUR INTERVENTION, 


ANPUT PARAMETERS 


vOLde  PREVILISURT > SURT TIMING EREDICTUK 7 giri5e7phOh 19° 
THe USE UF NAMELIST wAS CHOSEN FUK LEASE UF INPUT AND THE USER 
SHUULD REFER TO THE B670U0 FORTKAN LANGUAGE MANUAL FOR INFORMATION 
KEGUARDING THE USE UF NAMELIST. A WORL OF CAUTION IS IN ORDER TO 
EMPHASIZE THE NEED FUR CORRECT SPELLING OF FARAMETER NAMES AND THE 
USt UF PUNCTUATIUN CCUMMAS AND EQUAL SIGNS). JHE NAME UF THE 
NAMELIST RECORD 1S "INFO" AND ALL ELEMENTS IN THE LIST ARE SIMPLE 
VARKLABLES« | 


MUKE THAN ONE SEI Gt INPUT DATA CAN BE FED CUNE AT A TIME) INTO THE 
PRUGRAM, WHEN INPUT SETS ARE STAGKED IN THIS FASHION» EACH 
SUCCEEDING S&T WILL REPLACE UNLY THE VARJABLES SPECItFIe€D WITHIN THE 
SPECIFIC SUCCESSUR StI. UNCE A PARAMETER HAS SEEN ASSIGNED A 
VALUE» IF wikkL RETAIN THAT VALUE UNTIL A SUBSEQUENT ASSIUNMENT 
REPLACES {[T. ALL VALUES ARF INITIALIZED Tuo ZtRO EXCEPT THE 
FOLLUWINGS 


SEG TS INITIALIZEO TO 5060 
FELAPs FIU, FPROC AKE INITIALIZED TU 1.0.5 


THE NAMES AND USE UF INPUT PARAMETERS ARES 


CUMPAR (A REAL PUSITIVE VALUE WHERE 160 EQUALS UNE MICROSECOND) 
THIS 15 THE AVERAGF AMOUNT OF FRUCESSOR TIME CIN 
MICROSECONDS) REQUIRFU FUR ONE INVOCATION OF THE CUMPARE 
PRUCEDURE« THIS MUST ALSU INCLUDE PROCEDURE ENTRY AND 
EXit TIME. 

RSIZE (AN INTEGER VALUE WHERE ONE EQUALS UNE WORD AT LEAST UNE 
AND AT MOST 65535) THIS IS THE SIZE CIN WORDS) UF THE 
SORT RECURD. IN CORUL THIS IS THE SIZE UF THE SD WHILE 


IN ALGOL IT 1S YHE SAME AS THE RECORD LENGTH, NOTE THAT 
RECORD SIZE MUST Be IN WORDS AND NUT IN CHARACTERS. 


RECS CAN INTEGER VALUE WHERE ONE EQUALS ONE RECOKD AND WITH A 
VALUE OF AT LEAST ONF) THE EXACT NUMBER OF RECORDS TO BE 
SORTED. 


VSIZE CA NON@NEGATIVE INTEGER VALUE WHERE ONE EWUALS ONE WORD) 
THIS IS THE aAmOUNT OF DISK (CAN WURDS) THAT WILL HE 


vO1L48 


TAPES 


CSIZE 


RESTAR 


SEW 


ELAFIN 


| AGE 19 
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SPECIFIED FUR THE SORT. 


(A WNUN@NEGATIVE INTFGER WALUE WHERE ONE EQUALS ONE 
WORKTAPE) THIS Id THE NUMBER UF TAPES THAT WILL BE 
SPECIFIED FUR THE SORT. 


(A NUN NEGATIVE INTEGER VALUE WHERE ONE EWUALS QNE WORD) 
THIS 15 THE AMOUNT OF MEMURY CIN WORDS) THAT WILL BE 
SPECIFIED FOR THE SORT. 


(A NON*NEGATIVE INTEGER VALUE LESS THAN 33) THE CORRECT 
VALULS THIS PARAMFTFR CAN TAKE ON ARE THE SAME AS THE 
RESTA@RT PARAMETER USFU FUR INVOCATION UF THE SORT. THIS 
FRUGRAM» HOWEVER» OES NOT ATTEMPT PREDICTIONS THAT 
INVOLVE RESTARTING PREVIUUSLY INCOMPLETE SURIS. 


(A NUN “NEGATIVE REAL VALUE BETWEEN ZERU AND 100) THIS 
PAKAMETER 15 USED TU SPECIFY THE KELATIVE SEQUENCE 
INHERENT IN THE INPUT DATAe THIS PROGRAM WILL ASSUME 
THAT THE SEQUENCE SPECIFItD WILL Be UNIFURM THROUGH ALL 
GF THE DATAs THE IMPORTANCE OF THIS PARAMETER SHOULD NOT 
BE MINIMIZED BECAUSE OF THE DIRECT RELATIUNSHIP UFUN THE 
RESULTS UBTAINED. USERS SHUULD BE AWARE THAT THE MARK 
2e3 AND SUCCESSUR SORTS CINVOLVING THE USE UF SORT DISK) 
WILL ATTEMPT TU TAKE ADVANTAGE UF INHERENT FILE SEQUENCE 
TO THE EXTENT OF SWITCHING BETWEEN ASCENDING AND 
DESCENUING CUMPARISONS. THIS GENERALLY RESULTS IN AN 
EFFECTIVE SEQUENCE QF AT LEAST 40% ANN CAN EASILY IMPROVE 
THE SEQUENCE TO APPROACH 100%+ THIS PROGKAM ASSUMES THE 
SORT IN USE wILt BE AT LEAST AT THE MARK 203 LEVEL. 


(A NON@“NEGATIVE REAL VALUE WHERE 1460 EWUALS ONE 
MICRUSECUND) THE AVERAGE AMUUNT UF ELAPSED TIME CIN 
MICRUSECONDS) THAT OCCURS AS A RESULT UF AN ATTEMPT BY 
THE SURT TU "READ" UNE INFUT RECORD. THIS PARAMETER 
REPRESENTS TIME NOT INCURRED AS EITHER PROCESSOR OR [70 
BU AS TIME WAITING FUR AN EVENT TO UCCUR THAT IS 
EXIERNAL TO THE SORTING PRUGRAM PRUPERS 


00146 


ELAPQ 


PROCIN 


PROCG 


ulGIn 


ULOOLT 


Tad 
1¢3 
1¢4 
ilbe 
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CA NON*NEGATIVE REAL VALUE WHERE 1.60 EWUALS ONE 
MICROSECOND) THIS PARAMETER IS SIMILAR TU ELAPIN EXCEPT 
ITS USt IS FUR OUTPUT RECORDS (RETURNED TO USER BY SORT). 


CA NON"NEGATIVE WEAL VALUE WHERE 1460 EWUALS ONE 
MICRUSECOND) THIS PARAMETER 1S USED TU SPECIFY THE 
AVERAGE AMBUNT OF PROCESSUR TIME (IN MICROSECONOS) 
INCURRED TO READ CNE INPUT RECURD. IF AN INPUT PRUCEDURE 
1S TO BE USED» IT IS THE AMUUNT OF PRKOCESSUR TIME 
REQUIRED BY THAT PROCEDURE. IF A FILE IS TO BE USED BY 
AN INPUT PRUCEUURE OR PASSED TO THE SURT» THE PRUCESSOR 
TIME USED BY THE SYSTEM TU REAL THE RECORD MUST BE 
INCLUDED IN THE PARAMETER VALUES InN ANY CASE ALL 
NECESSARY PROCEDURE ENTRY AND EXIT TimeES MUST BE INCLUUED. 


(A NON*NEGATIVE KEAL VALUE WHERE 120 EQUALS ONE 
MICROSECOND) THIS PARAMETER IS USED TU SPECIFY THE 
AVERAGE AMOUNT UF PROGESSUR TIME (CIN MICROSECONDS) 
INCURRED TU WRITE ONF OUTPUT RECORD FRUM THE SORT TO THE 
USERS GuTPUT File OR GUTPUT PROCEDURE.» THE USE UF THIS 
VALUE ITS SIMILAR TO PROCIN EXCEFT THAT IT 1S APPLIED TO 
UUTPUT RATHEK THAN INPUT. 


CA NON®NEGATIVE REAL VALUE WHERE 1.40 EQUALS ONE 
MICROSECOND) THIS PARAMETER IS USED TU SPECIFY THE 
AVERAGE AMOUNT QF 1/0 TIME TO READ UNE USER INPUT RECORD. 
THIS PARAMETER SHOULD BE THt SAME AS THt 1/0 TIME THAT 
WOULD BE LUGGED BY THE SYSTEM TO ACCUMPLISH THE SPECIFIC 
I/7U. 


CA NON*NEGATIVE KEAL VALUE WHERE 2.0 EQUALS ONE 
MICRUSECOND) THIS PARAMETER IS SIMILAR (0 UIOIN EXCEPT 
THAT ITS uUSt IS APPLIED TU THE USER OUTFUT FILE RATHER 
THAN INPUT. ‘ 


(NON*NEGATIVE REAL VALUES NU MURE THAN 100 WHERE IA2 
THROUGH T166 REPRESENT A WISK TYPE "SEE 86700 HARDWARE 
HANDBOOK, SECTION 7*= AND THE SUM UF ALL UISK TYPES IS NO 
MOKE THAN 100.60) THIS PARAMETER 1S USEL TO SPECIFY THE 
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[iB4 
1186 


TAPEQ 
TAPEL 
TAPE? 
APE 3 
TAPEG 
TAPES 
TAPLE 
TAPE? 


FUULAP 
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FERCENT UF USIZE TU BE USED BY THE PARTICULAR DISK TYPE. 
IN ACTUAL uSeE DOSTZF ITS FIRST CONVERTED 10 THE NUMBER UF 
UISK KUWS AVAILABLE AND THE RUWS ARE THEN APPORTIONED> 
ACCORKUING TU THE PFRCENTAGE VALUE, TO THE VARIOUS DISK 
TYPES. SELECTION BFTWEEN O1LSK TYPES {S BASED UPON DISK 
SPLED PROCEEVING FROM HIGHEST SPEEU (SMALLEST AVERAGE 
ACCESS) Tu LUWEST SPEFUe 


CAN INTEGER VALUE AT LEAST ONE ANU AT MUST 1150 EXCEPT 
THAT ZERU IS USE) TO SPECIFY AN UNUSED TAPE) THIS 
PARAMETER IS uUSEL TO SPECIFY THR KINO UF TAPE UNIT THAT 
WILL BE USEU FUR FACH SURT TAPES UNE UNIT MUST BE 
ASSIGNED A VALUE FOR EACH TAPE SPECIFIED BY THE TAPES 
PARAMETER. THE MINTMUM NUMBER UF TAPES THAT MAY BE 
SPECIFIED IS THREE AND THE MAXIMUM 1S EIGHTs THE PROGRAM 
WILL EXPECT ASSIUNMENTS BEGINNING WITH TAPEO AND 
CONTINUING SEQUENTIALLY THROUGH TAPE N WHERE N IS THE 
NUMBER GF TAPES SPFCIFIED BY ThE PARAMETER TAPESCMINUS 
ONE De THE TAPE UNIT TYPES KEPRKESENTEU BY THE INTEGER ONE 
THROUGH 11 AKLS 


1 7 TRACK 200 BPI LakC 9OIPS 
2 7 TRACK 556 BPI SOKC 9OIPS 
3 7 TRACK 800 BI 72KC 9OIPS 
4 7 Track 200 BRI 24KC 120I1PS 
5 7 TRACK 556 BRI 66KC 1201PS 
6 7 TRACK 600 BPI YOKE 1201P9 
7 9 TRACK 800 BRI 72K8 QOIPS © 
8 9 TRACK — 800 BPI 96KB 1201PS 
y PE 1600 BPI 144Kb 9OIPS 
10 PE 1600 BPI 192KB 1201FS 
lt PE 1600 BPI 240KB 150IPS 


CA NUN@NEGATIVE KEAL VALUE AT MUST 260) THIS PARAMETER IS 
uStD TO EXPRESS THe PERCENTAGE OF DISK 1/0 THAT wILt BE 
IN FROCESS SIMULTANFUUSLY, IN ACTUAL PRACTICE THE 

ELAPSED TIME OF AN 1/U BOUND SORT MAY BE LESS THAN THE 
TOTAL I/O TIMF wECAUSE OF JHE ABILITY TO ACCUMPLISH 


00148 


FTOLaP 


FLLAP 


FPROC 


veSIZE 


DEBUG 
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SIMULTANEUUS 1/0 REQUESTS. SINCE FHIS PROGRAM DUES NOT 
CONSIDER 1/0 SIMULTANFITYs THIS PANKAMETER WAS PROVIDED AS 
A MEANS OF EXPRESSING THAT CUNDITIUN. PLEASE NOTE THAT 
THIS PARAMETER APPLIFS ONLY TU DISK I/Us THE CONTENT OF 
THIS PARAMETEK WILL BE MULTIPLIED BY THE DISK I/7U TIME 
ANU THE RESULT WILL BE USED 10 REDUCE THt ELAPSED TIME. 
A VALUE OF 1.0 REPRESENTS 100% AND A VALUE UF 0.45 
REPRESENTS SUB.e 

CA NUN®NFGATIVE REAL VALUE AT MUST 160) THIS PARAMETER IS 
USED TQ EXPRESS THE PERCENTAGE OF TAPE 170 THAT WILL BE 
IN PROCESS SIMULIANFOUSLY. USt UF THIS PARAMETER JS 
SIMILAR TO FOOLAP FXCEPT THAT IT APPLIES TO TAPE I70 
KATHER THAN DISK. 


CA NON@*NEGATIVE REAL VALUE) THIS IS A GENUINE FUULGE 
FACTOR THAT IS INITIALLY StT TU 1606 AFTER ELAPSEUD TIMES 
HAVE BEEN CUMPUTED THEY wIlLlL bE MULTIPLIED BY THIS 
PARAMETER. A VALUE LARGEK THAN 1.0 WILL INCREASE THE 
ELAPSED TIMES AND A VALUE LESS THAN 160 WILL DECREASE 
ELAPSED TIMED. IT 15 PROVIDED AS A GPIIONAL MEANS OF 
REFINING THE OUTPUT OF THIS PRUGHRAM, 


(A NON“NEGATIVE REAL VALUE) THE USF UF THIS PARAMETER IS 
SIMILAR TO FeLarP EXCErY THAT IT WILL BE USED TO MULTIFLY 
1/0 TIME. IT 1S INITIALLY StT TU 160. 


CA NON@NEGATLIVE Real VALUE) THE USE UF THIS PARAMETER IS 
SIMICak TO FELAP EXCFP? THAT LT WILL BE USEL TO MULTIPLY 
PRUCESSOR Times I7 IS INITIALLY StT TU 160, 


CAN INTEGER VALUE AT LEAST ZERO ANU AT MUST 65535) THIS 
PARAMETER IS USED TU UVERKILE THE CUMPUITEL BUFFER SIZE 
(OLSK BUFFERS UNLY) IN A FASHIUN SIMILAR TO LABEL 
EQUATION PERMITIEU KY THE SORTs It THIS PARAMETER IS 
NON@ZEKOs IT WILL BF USED FOR COMPUTING ESTIMATES BY THIS 
PROGKAM, 


CA NON@NEGATIVE REAL VALUE) THIS PARAMETER IS A DF BUGGING 
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FOUL FOR THIS PROGRAM, A VALUE HETWEEN Oc0 ANO 1.0 WILL 
CAUSE CFKTAIN URBUGGING INF URMATOON TO Be PRINTFU AND A 
VALUE GREATER THAN 1,0 WILL CAUSE PRINTING UF ADDITIONAL 
DFBUGGING INFURMATION. 


POU TE TOASION DF PARAMETERS AND OGTEUT 

PAKAMETER VALUES MAY BE MODIFIED bY THE PKUGRAM IN SOME CASES» 
MUWEVER» WHEN THIS OCCURS NMTIFICATIUN OF THE CHANGE WILL BE 
PRIN(ED. FATAL ERRURS WILL ALSO BE PRINTED AND THE ATTEMPT WILL BE 
MAUVE TO FIND ALL SAID EKRURS IN ANY SINGLE SCAN OF AN INPUT SETe 
[HE OUTPUT FURMAT IS SIMILAR TO THE FURMAT USED BY THE PROGRAM 
MSYSTEM/SURTSTAT™. A NEW AREA OF INFURMATLON HAS BEEN ADDED THAT 
CONTAINS INFORMATION ABOUT THE AMOUNT OF WORKFILE STORAGE SPACE 
REVUIRED FORK THE SURTe THE ESTIMATE PRKUDUGEU FUR DISK WORK SPACE 
WILL MUST LIKELY BE SUFFICIENT» HOWEVER THERE 1S A PUSSIBILITY THAT 
THE ESTIMATE REPRESENTS AN OPTIMAL CUNLITIUN THAT OULD NOT OCCUR 
IN ACTUAL PRACTICE WITH DATA THAT 1S NOI] UNIFORM IN SEQUENCE OR IN 
FACT {N A OLFFERENT SEQUENCE, THE AMUUNT OF TAPE SPACE REQUIRED 
ASSUMES NO LOSS OF TAPE DUE TO IMPERFECT RECURDING SURFACES AND 
ESTIMATES UNLY THE TOTAL AMGUNT OF SPACE AND NUT THE NUMBER UF REEL 
SWATCHES THAT MIGHT UCCUR. IT IS LIKELY THAT THIS GENERAL AREA 
WILL BE EXPANDED IN THE FUTURES 


SAMPLE LATA 


EXAMPLES GF CARU DECKS TU COMPILE UR RUN THIS PRUGRAM ARE AS 
FOLLOWS (AHERE <B> REPRESENTS A BLANK COLUMN)! 


Ae TO COMPILE 


<1>COMPILE SYSTEM/PREDICTSORT WITH FORTRAN TO LIBRARY 
<L>FORTRAN FILE TAPE C(CTITLE = SYMBUL/PREDICTSORT) 
<I>VDATA 

<END> 


He TO RUN 


<1>RUN SYSTEM/PREDICTSURT 


. . PAGE 2 
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<I1>DATA FILES 

<B>RINFO<B> 

<ONE QH MORE PARAMETER CARDS> 
<B>&END 

<I>END 


PARAMETER VALUES MAY ALSU BE PLACED UN THE @INFO CARD 
OR THE &END CAKD. 
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RJF 


vo1sy RVE = RUN JUBS WITH PARAMETERS - Lesdue72 
THIS PATCH ALLOWS A “"RUN® UR "EXECUTE® CARD RUN THROUGH RJE TO HAVE 
A WUUTED STRING AS A SINGLE PARAMETER. EXAMPLE? 


<I> RUN SYSTEM/UDCSTATUS CTALL™)3 ENDe 


eee eee ae Sore er eee: te nceeeans 

[HLS PATCH ALLUWS THE DF MESSAGE AT EITHER THE REMOTE CONSOLE OR 
THE CENTRAL SITE (VIA THE SM CUNSTRUCT) TO BE OPTIUNALLY FOLLOWED 
BY DUMP GPTIUNS DESIRED. THE UPTIUNS ALLUWEL ARE "ARRAYS, "BASEN, 
PCUDE"» "FILES™, OR <INTEGER>. COMMAS MAY BE USED TO SEPARATE TO 
UPTIUNS IF DESIRED. 


vols? RYE = PRIORITY OF RJE RACKURPS ©&= 1is20e72 

THiS PATCH CAUSES THE AUTOPRIN) ROUTINE UF RYE TU RUN AT A PRIORITY 
FIVE HIGHER THAN RJE ITSELF, In NU CASE WILL THE PRIORITY OF 
BACKUPS BE HIGHER THAN 99. 


Uivg RIE > FURWMESSAUE TRRUUUH RE > 14rZ0r72 

THLS PATCH IMPLEMENTS THE FORMMESSAGE FUNCTION FOR PRINTFILES 
PRINTED AT AN RJE TERKMINALe THE NOTIFICATION OF FURMS REQUIRED 
WILL BE <MIX NUM> <FURMMESSAGE STRING>. THE PRINTING JOB WILL WAIT 
UNTEL THE REMOTE OPERATOR RESPONDS <MIX NUM> FM <QGFTIUNAL STRING>.s 
UNLY UNE FILE WILL BE PRINTED AND A “PB® MESSAGE WILL CAUSE 
PRINTING TO CONTINUES THIS ALLOWS REMOVAL OF ANY SPECIAL FORMS 
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WHICH HAVE BEEN USED, 


vO189 RJE = VALUE AND BUNAME © Lie20"72— 

THis PATCH IMPLEMENTS "VALUE" AND "BONAME™ CUNTROL CARUS IN KJEs A 
RUN TIME VALUE" OR “BONAME™ CANNOT Bt SET AT COMPILE TIME. RJE 
ALWAYS SETS HOBASE, SO IF USED» BUNAME IS EFFECTIVE. 


0190 RE * $S BETWEEN RJe STATIONS 2 lisz2vue72 
THIS PATCH ALLOWS RYE USERS TO SEND MESSAGES 10 OTHER RJE STATIONS 
REMOTE SUPERVISOR CONSULESe THE SYNTAX IS <STA NUMBER> SS <TEXT>. 
THe TEXT WILL APPEAR ON THE STATION GIVEN BY <STA NUMBER> AS» "#SS 
FRUM <ORIGINATING STA NUMBERD>3 <TEXT>"™, 


vO¢01 RYE os Sm MESSAGE IMPLEMENTATION - a1220°72 
RJE WILL NOW ACCEPT SM MESSAGES FROM THE CENTRAL SITE CONSOLE. THE 
BASIC FORM OF AN SM MESSAGE 1S <MCS MIX NUMBERD>SMS<TEXT>, 


KJk REQUIRES THAT THE <TEXT> BE IN ONE OF TWO BASIC FORMS» <KEY 
WORD><OPTIGNAL TEXT> OR <LSN><KEY WORD><UPTIUNAL TEXT>» <KEY WORD> 
2 ARE TWO LETTER MNEMONICS. THE FULLOWING DISCUSSION REFERS ONLY 
TO SM MESSAGES WHICH MUST BE FNTERED AT THR CENTRAL SITE CUNSOLE. 


<KEY WURD>S REQUIRING LSN. 


PH IF AN AUTOMATIC CALLBACK WAS ATTEMPTED BUT UNSUCESSFUL» THE 
PH MESSAGE WILL SIGNAL RJE TO TRY OJALING AGAIN. NOTE THAT 
AN ATTEMPT TO OTAL MUST HAVE ALREADY OCCURRED. THIS 
RESTRICTION AVOTUS ERRONEOGUSLY UR CAPRICIUUSLY CONNECTING 
SWITCHED LINESs 


SU <QPTIUN> © SU SETS THE <UOPTIUN> SPECIFIED. <UPTION> CAN BE 
EITHER LOGON OR USER. IF USER IS StTs ALL DECKS ORIGINATING 
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RU 


Sv 


KY 


RE 


FROM THAT STATION MUST RE PRECEDED BY A USER CARD. IF LOGON 
IS SET» A LUGUN SEQUENCE AS VESCRIBED IN THE RJE MANUAL IS 
REQUIRED. IF LOGUN JIS SET AND USER IS RESET ALL DECKS 
ORIGINATING FROM THat STATIUN WHICH DO NOT HAVE A USER CARO 
WILL BE RUN UNUDER THE USFRCUDE AS GIVEN BY THE LOGON SEQUENCE. 
IF LUGUN [9 RESET» NO LUGON SEQUENCE IS REQUIRED» AND NO 
DEFAULT USERCOUE WILL HE USED. IF A STATIUN IS ACTIVE AND 
NUT LOGON WHEN THE CENTRAL SITE UPERATOR SETS LOGONe THE 
STATION WILL BE LOGGED OFF AND REQUIRED TO LOGON, 


(HE SETTINGS OF THESE TwO UPTIUNS WILL BE REMEMBERED ACROSS 
DIFFERENT RUNS OF RJE. HOWEVER, It RJELINKED FILE IS 
REMUVEDs SETTINGS WILL RETURN TU THE DEFAULT OF LOGON = SET 
AND USER #® RESET. 


NOTE THAT WHEN RUNNING UNDER A USERCUDE, LIBRARY MAINTENANCE 
CANNOT BE PERFURMEUD ON FILES NOT UNDER THAT USERCOOE 
DIRECIORY UNLESS ITF 15 A PRIVILEDGED USER» TO FIND FILES 
UNDER A USERCUVE THRUUGH RJE» USE FD USERCUDE/<USERD>/<FILE 
NAME>» WHERE <PILE NAME> CAN BE AN EQUALS SIGN, PD <FILE 
NAME> WILL SEARCH THE SYSTEM DIRECTORY. 


<OPTIUN> © THE RO MESSAGE RESETS THE ABOVE OPTIONS. 


THE SV MESSAGE SAVES THE SPECIFIED STATION. THE STATION IS 
MADE NOT READY» ANU FRRUR RECOVERY IS DISCONTINUED. SEE 
SYSTEM NOTE P0840, 


THE RY MESSAGE MAKES THE STATIUNs AND LINE ASSOCIATED WITH 
THAT STATION» READY. THIS WOULD APPROPRIATELY BE PERFORMED 
ON A PREVIUUSLY SAVED STATIUNs SEE PRECEDING SV MESSAGE 
DISCUSSIUN. 


<OPTIONAL TU><MCS NAME> © THE RE MESSAGE ALLOWS THE CENTRAL 
SITE UPERATOR TU RELEASE AN RJE STATIUN AS GIVEN BY THE <LSN> 
TO ANGTHER MCSe AN EXAMPLE WOULD HE? 


31 RE TO SYSTEM/CANDE 


NOTE THAT ONLY THE STATION SPECIFIED IS RELEASED. IF» FOR 
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EXAMPLE» LSN 31 WERE A REMUTE SUPERVISUKY CONSULE THE 
PREVIUUS STATEMENT WOULD RELEASE UNLY THE REMOTE SUPERVISORY 
CONSOLES THE PRINTER, CARD READER AND 0C100U0 WOULD FUNCTION 
NURMALLY. IF THE LSN RELEASED 15 A PRINTER OR REMOTE 
SUPERVISORY CONSOLE» NO FURTHER GUTPUT TU THAT LSN WILL BE 
ATTEMPTEUs 


<KEY WURKD> ALLOWING OPTIONAL LON. 


WH 


THE wH MESSAGE WITHOUT LSN PRUVIVES THE LSN» STATE (I.E. 
ACTEiVt,. INACTIVEs SAVEN) AND STATION NAME OF EACH STATIUN 
KNOWN TO RJEo Tk AN LSN 18 PROVIDED» ThE STATIUN NAME>, 
LUSERCODE CIF APPLICABLF)» LUGON RRQUIHEMENTS, USER CARD 
REQUIREMENTS OK DEFAULT USERCUDE USE» SWITCHED STATUS» STATE 
AND PHONE NUMBER CAF APPLICABLE) ARE GIVEN FUR THE SPECIFIED 
STATIONe THE INFORMATION IS PROVIDED VIA SEQUENTIAL DISPLAYS 
GN AN ASYNCRUNUQUSLY KUNNING TASK. 


<KeY WURD>S NOT ALLUWING LSNeo 


uP 


hl 


QT 


35 


<DUMP UPTIONS> © PRUVIUES A kKJt LINKED FILE PRINTOUT AND A 
PRUGRAM UUMP, It IS UNLY APPLICABLE WHEN RYE IS CUMPILED 
WITH DEBUG SETs <WUMP UPTIUNS> Akt BASE» AKRAYSs FILES» CUDE 
OR AN <INTEGEK>, UPTIUNS MAY BE OSEFPARAIEU BY CUMMAS OR 
BLANKS. IF NO UPITUNS ARE SPECIFItD THE UPTIUNS USED WILL BE 
AS APPEARED ON TRE OPTION CARD WHEN KJt WAS COMPILED. FOR A 
ODiSCUSSIUN UF TRE -FUNCTIUN UF THe <DUMP UPTIONS> SEt 
DOCUMENTATION UN PRUGRAMNUMP INTRINSIC. 


THIS MESSAGE CAUSES THE CURRENT Lt bUG LISTING TU BE FRINTED. 
CONSFCUTIVE HI MESSAGES WILL PRINT ONEY THE DEBUG LISTING NOT 
PREVIUUSLY PRINTED. 


THiS MESSAGE wILL CAUSE RYE TU GO TO EUJ IN AN ORDERLY 
FASHIUNs IN PARTICULAR, STATIUNS WILL BE LUGGED OFF SO THAT 
CORREGT ACCQUNTING CAN BF FPROVIvLEL. THIS TECHNIQUE SHOULD BE 
USED IN PREFERENCE TO DS@ING Kubo 


<STRING> © THIS 1S A BROADCAST OF THE <STRING> TO ALL ACTIVE 
RJE STATIUNS.e THE MESSAGE WILL BE PRINTED ON THE RSC AS» #55 
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ALLI<STKING>s 


eecee” eek Giuee Sereune) As eecoooee 
THis) PATCH IMPLEMENTS THE UPTIONS BASE» ARRAYS» FILESs CODE AND 
<INTEGEN> FO THE DP REMUTE SUPERVISORY CUNSOLE (KSC) INPUT MESSAGEs 
THe UPTIONS FOLLOW THE MNEMONIC DP AND MAY BE SEPAKATED BY EITHER 
BLANKS QR COMMAS. THE DP MESSAGE IS UNLY ALLOWEU WHEN RUE IS 
GUMPALED wth UVEKUG StET. iF NU UPTIONS ARE SPECIFIED THE UPTIONS 
AS APPEARED ON THE UPTLUN CARD WHEN RJE WAS CUMPILEU WILL Bk USEDs 
NOTE TRAT THIS FUNCTION PARALLFLS THE SM "LP" MESSAGE DESCRIBED IN 
LOZO1. 


FUR A ulSCUSSTUN OF THE FUNCTIUNS Ut TRE VARIUUS OPTIWNS SEE 
VULUMENTATION ON PRUGRAMDUMP INTRINSIC. 


LUZ1Le RJE © MULTISTATION KJE TERMINALS & O1°15=73 


THiS PATCH CHANGES RJE TO TREAT EACH PERIPHERAL AND ITS ASSUCTATED 
VC1000 AS UISTINCT STATIONS GRUUPED BY LINE» THE US REMOTE 
SUPERVISORY CONSULE (RSC) MESSAGE WILL NUW SHUW THE CORRECT LSN FOR 
THE PERIPHERALS FUR THE URIGINATING DCI0U05. THE <RJE MIX#> SM3 
<LON>WH WILL ALSO SHUW THESE LSNS.» ALL FRINTER BACKUPS wILL BE 
GRUUPEO BY THE UC1000 LON. 


IN GENERAL, WHEN THE REMUTE TERMINAL IS BEING THLUGHT OF AS ONE 
YVNIT ThE LSN UF THE DCLO00 1S THE PROFER LSN TO USEe (CEsGee WHEN 
DIRECTING BACKUP FILES TU RJE TERMINALS.) 


IN MOST CASES THE USER NEED NOT BE CUNCERNED TRAT LACH PERIPHERAL 
HAS A SEPARATE LON, 


U0els RJE © STOP BY KSVF AND ACCEPT © O1"15"73 


THis PATCH CAUSES RJE TU PRINT UN THE REMOTE SUPERVISORY CONSOLE 


| PAGE 
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(RSC) ANY ACTIVE RSVP MESSAGE. THIS INCLUDES NO TILE, OUP FILED 
ACERT.» ETC. 


UO214 = Rue = AX RSC INPUT MESSAGE = 01°22°73 

This PATCH ALLUWS The RUE USER TU RESPUND TU JUBS STUPPED ot CAUSE 
uF an ACCEPT STATEMENTs THE FORMAT UF ThE REPLY 158 <MIX#>AX<TEXT>. 
THE <TEXT> WILL BE PASSED TO THF JOB DESCRIBED BY <M1X#>, 


UOeLS “RYE PRIN) PILE SEARCHING 7 OeceecL2 

THLS PATCH CHANGES Kut TU UTILIZE THE WINSERTEVENT SO THAT RJE IS 
MOKE EVENT ORIVENe IN PARTICULAR,» THE RJE ALGUNTTHM FOW PRINT 
FILES IS QIFFERENTs Kut wILt LUGK FORK PRINT FILES FOR A STATION 
WHEN A CUB COUMFLETES UR A rE REMOTE SUPEKVISURY CONSULE (RCS) INPUT 
MESSAUE FROM THAT STATION 1S KE CUGNIZEDes WHEN APFROXMATELY 30 
SELUNUS HAVE ELAPSED Kuk SEAKCHES FOR FRINT FILES FOR ALL STATIUNS. 
IHLS ELAPSED Time IS INCREASED AS KJt BECUMES BUSTIER. 


v0216 KYE © HSC UUTPUT TU INACTIVE STATION = 01°29°73 


fHLS PATCH CAUSES mESSaGES SENT TO THE REMUTE SUPERKVISURY CUNSOLE 
(Roc) IC BE THRUWN AWAY WHEN & SWITCHED STATION IS INACTIVE. 


WU22 RJE =| RE RSC MESSAGE #&= GY1Sld=73 


THiS PALCH IMPLEMENTS THE hE REMOTE SUPERVISURY CONSOLE INPUT 
MESSAGE. THt FORMAT 15% 


<LSN>KRE <OPTILONAL T0O><MCS NAME> 
The <LSN> MUST BE AN LSN ASSIGNED TO THE ORIGINATING TERMINAL. 


EXAMPLE? 
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31 RE TO SYSTEM/CANDE.s 


KJE WILL ALSU NOW RECOGNIZE A STATIUN RELEASED TO IT BY ANOTHER MCS. 


udezs  HYE 2 LUGANALYZEW InRUUGH RYE 2 g2r0D273 

THAS PATCH CHANGES Rvt Tu INTERFACE WITH SYSTEM/LOGANALYZER, 
ALTHOUGH REMOTE SUPERVISURY CUNSOLE INPUT JS ALLUWED» A DECK FORMAT 
41S) REQUIRED, teGe PLUG MIX 17213END. FUR THE VARIOUS MESSAGES 
ALLUWED SEE THE DUCUMENTATIUN UN SYSTEM/LUGANALYZER, 
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SCR 


yozai SCR > EV MAINTENANCE > g3r23073 

THe REQUIREMENT FOR THE RY FU FACILITY HAS BEEN UBVIATED BY THE 
VIoK RESERVE AND RETURN FACILITIES IN CONJUNCTION WITH IMPROVEMENTS 
AN SUR 


THE PURPOSE UF RY EU WAS TO PERMIT ROTATING GUT OF SYSTEM A DISK EU 
ANU ITS STORAGE MODULES TO PERFORM MAINTENANCE *® Tu ACCOMPLISH THIS 
USING THE RY EU FACILITY REQUIRFD THE FOLLOWING STEPS3 


le HALT SYSTEM, 


Z@e CABLE IN A SUBSTITUTE EU PLUS STURAGE MOUS AS MIRROR 
IMAGE OF SUBSYSTEM BEING KOUTATED UUT. 


3e WHILE THE SYSTEM IS DUWN»s RUN SOME OFFeLINE RUUTINE WHICH 
WOULD HLEINDLY COPY THE SUBSYSTEM BEING KUTATEU UUT TO THE 
SUBSTITUTE SUBSYSTEM. 

46 SWAP UNIT NUMBERS UF THE SUBSTITUTE AND OKRIGINAL EUS. 


Se TAKE ORIGINAL SUBSYSTEM UFFSkLINEs PUT SUBSTITUTE 
SUBSYSTEM ON@LINE» AND HALT/LOAD THE SYOTEM. 


6e AT THIS POINT THE SYSTEM ITS UP AGAIN AND THE ORIGINAL 
SUBSYSTEM MAY BE TESTED AND REPAIKED UFFeLINEs 


7o WHEN THE OFF*®LINE SUBSYSTEM IS REPAIRED» IT MAY BE TESTED 
BY TURNING THE SUBSYSTEM ON*LING ANU KEYING IN RY EU ON 
THAT UNIT NUMBER. THE RY WOULD ALLOUATE A SERIFS OF 
SPECTAL BADLDISK FILES WHICH MAPPEU ALL OF THE DISK ON 
THAT EUs 

Bo CN®LINE MAINTENANCE COULD THEN BE KUN ON ThESE BADDISK 
FILES TU TEST AND VERIFY THE REPALRED SUBSYSTEM. 


PAG 2 
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96 TO RETURN THIS DISK TO THE SYSIEM REQUIRED THAT ALL OF 
THE BADDISK FILES BE MOVED AND THE SYSTEM BE AALT/LOADEDs 


TO ACCOMPLISH THIS USING CURRENT SOFTWARLS 
le RESERVE EL TU BE PM*ED AS BADDISKs 


2s PERFORM MAINTENANCEs TFSTINGs AND REPAIRS IN ON@LINE OR 
OFFLINE MODE AS REQUIRED. 


3+ WHEN THE DISK SUBSYSTEM HAS BEEN SATISFACTURILY PM*ED AND 
VERIFIEU. THE SUBSYSTEM CAN BE RETURNED TO THE SYSTEM BY 
RESERVE <QK>» CUPY ERRORS AND THEN PERFURMING A RETURN ON 
THAT EUs 


iF LT TS NECESSARY TO ADD A DISK SUBSYSTEM TO THE SYSTEMs THIS CAN 
BE ACCOMPLISHED BY MAKING THE EU READY CAFTEK A H/L)e RESERVEING IT 
AS TAU AND THEN KETURNING IT. 


nOfE’ THE USE OF RES AND RET ELIMINATES THE NEED FOR TAKING THE 
SYSTEM DOWN UR DUING ANY HALT/LOADS. 
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MISCELLAWEOUS 


0137 ARITHMETIC TEST AE4Y = 09"22°72 


EY URCSUC TION! 

The AMOUNT QF CODE EXECUTED BY THE AE3 PRUGRAM IN LETERMINING THE 
CORRECT ANSWER AND CHECKING THE MACHINE KESULT wITH THE ARITHMETIC 
INTERPRETER RESULT CAUSES THE EXECUTIUN FREQUENCY OF THE MACHINE 
DOUBLE@PRECTSIUN OPERATOR TO BE TOO LOW FOR AE3 TO BE USEFUL AS A 
UVIAGNOSTIC AID IN TROUBLE SHOUTING INTERMITTENT HARUWARE PRUBLEMS. 


VHe AEG PRUGRAM IS INTENDED TO BE THE UIAGNOSTIC HALF OF A DETECT 
AND OJAGNOSE PAIR UF PROGRAMS IN WHICH AE3 MAY BE USED AS THE 
DETECT HALF. THIS PROGRAM ACCEPTS INPUT FRUM THE CONSOLE 

SPECIFYING THE As Xs Bs Y REGISTER CUNTENTS, THE OPERATOR TO BE 
APPLIED TO THESE OPERANUSs AND THE CURRECT RESULT.» IT THEN APPLIES 
THE SPECIFIED UPERATOK TO THESE UPEKANDS AND PERFORMS A BIT 
COMPAKEZSON UF THE RESULT WITH THE (PRESUMED) CORKECT ANSWER. A 
RUNNING COUNT OF THE NUMBER OF EXEGUTIUNS UF THE OPERATOR AND 
NUMBER OF MACHINE ANSWEKS NOT EQUAL TO THE SPECIFIED CURRECT ANSWER 
MAY BE ACCUMULATED IN URDER TO DETERMINE THE FREQUENCY OF FAILURE. 


SuSUT RAPAME TENE! 

THE REGISTER CONTENTS AND OPERATOR MNEMUNIC ARE SPECIFIED BY MEANS 
UF "AX" REPLIES TO CONSOLE QUERIES. THE PROGRAM WILL DISPLAY A 
Q@UESTIUN QF THE FURM "WHAT*=S A = 2" AND WAIT FOR THE RESPONSE. 
THIS RESPONSE 1S EXPECTEO Tn BE UF THE FORM <MIX NUMBER> AX 
<IDENTIFIER> = <VALUE><ETX>. THE <IDENTIFIER®> USEU IN SUCCESSIVE 
QUERIES IS: As Xo Bo Yo OPERATOR MNEMUNICs FIRSTWURD OF ANS» AND 
SECQNDWORD UF ANS’ THE <VALUF> FOR OPERATUR MNEMONIC MAY BE ADD, 
SUBT» MULTs DIVO. IDIV UR ROIVs ANU THE <VALUE> FOR ALL OTHER 
QUERIES IS EXPECTED TO BE EITHERS 
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le A STRING OF ONE TO 16 ZERNESS 

2e A STRING OF EXACTLY 12 HEX DIGITS3 

3e A STRING UF EXACTLY 16 OCTAL VIGITS» OK 
4s AN ASTERISH. 


THe ASTERISK MEANS THAT THE VALUE OF THIS PARAMETER IS NOT TO BE 
CHANGED AND 1S USED WITH THE HI INTERRUPT DISCUSSED BELOW, 


A COMPLETE DIALOG SPECIFYING THAT 1.0 X 1.0 ® 160 1S TO BE TESTED 
WOULD LUOK LIKE THIS? 


QUERY? <MIXea> ACCEPT! WHAT*SS A ® 2? 

KESPONSE? <MIxee> AX A * 1141000000000000 <ETA> 
QUERYs <Mixew> ACCEPTS WHAT*S x = ? 

RESPONSE! <MIX™#> AX X 2 O KETX> 

QUERY: <MIixe#> ACCEPTS WHAT*S & = ? 

RESPONSES <MIX®#> AX B © 1141000000000000 <ETX> 
QUERY <MiX=e> ACCEPTS WHAT*S UPERATOK MNEMONIC? 
RESPONSES <MIX@#> AX UP #& MULT «<ETX> 

QUERYS <mMixew@> ACCEPTS WHAT@S FIRSTWURD OF ANS? 
RESPONSES <MIX"#> AX F #& 1141000000000000 <ETX> 
QUERY! <MIxe#> ACCEPTS WHAT@S SECUNDWURD UF ANS? 
RESPONSES <MIX|@#> AX S 2 0 <ETX> 


ALL OF THE NON*ZERU NUMBERS IN THE EXAMPLE ARE GIVEN IN OCTAL BUT 
COULD ALSO HAVE BEEN ENTEREO IN HEX AS 2610000000006 


peuebecr eee rents 

AFTER TRE ENPUT DIALOG HAS FINISHED» THE PROGRAM REPEATEOLY APPLIES 
THe DESIGNATED OPERATOR TU THE A/X*B/Y REGISTER CONTENTS AND 
PERFORMS a BIT COMPARISON OF THE MACHINE ANSWER WITH THE FIRSTWORD 
ANU SECONDWORD CUNSULE INPUTS» WHICH ARE SUPPOSED TO BE THE CORRECT 
ANSWERKe IF THESE TWO WORDS ARE NOT EXACILY EQUAL» AN ERROR COUNTER 
AS INCREMENTED. THIS ERROR COUNTER CAN BE INTERROGATED BY MEANS OF 
<MIX*#OOT3<ETKX>3 THE FREQUENCY OF FAILURE MAY BE VETERMINED BY 
SAMPLING THE COUNT UF THE TOTAL NUMBER OF EXECUTIONS OF THE DOUBLE= 
PRECISIUN UPERATUR BY MEANS UF <MIK®#>UTY<EFX>s 
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[F THERE IS ANY UNCERTAINTY CONCERNING WHETHER THE FPRUGRAM QUERIES 
WERE ANSWERED CORRECTLY», A LISTING FOR THE CURRENT SET OF 
PARAMETERS CAN BE OBTAINED BY PFRFORMING! 


le A POD BD#<ETX>»s AND 
20 A ?PB UD <NUMBERD>S END <ETx> 


WHERE THE <NUMBER> IS THE MIX NUMBER OF THE PROGRAM CINGLUDING 
BEADING ZEROES)» AS INDICATED BY THE PD REQUEST, 


THe CURRENT TEST MAY BE ABORTED AND A NEW SET OF PARAMETERS 
SPECIFIED BY ENTERING <MiX=#>HIKETX>. THE PROGRAM WILL ENTER THE 
CUNSOLE QUEKY MODE» ASKING *WHAT#S & 2?" AS TF IT HAS JUST BEEN 
INITIATED. THE DIFFERENCE IS THAT THE REGISTER CONTENTS WILL NOT 
BE CHANGED FROM THOSE THAT WERE BEING USED IN THE INTERRUPTED TEST» 
SU CHANGES AND CORRECTIONS MAY BE ENTEREDse WHEN ALL SUCH DESIRED 
CHANGES HAVE BEEN MADE» A REPLY OF «<MLX@=#>AX ENDKETX> TO THE 
CURRENT ACCEPT INPUT REQUEST WILL TERMINATE CUNSULE REQUESTS AND 
BEGIN EXECUTION OF THE DOUBLE UPERATOR WITH THE NEW PARAMETERS. 


PRUGRAM OPTIONS! 
THE EXECUTION FREUUENCY OF THE DOUBLE“PRECISIUN UPERATOR MAY BE 
INCREASED BY RECOMPILING THE SYMBUL/TEST/AE4 SYMBULIC FILE USING 
THE FOLLOWING DECKS$ 


<I> COMPILE TEST/AE4 UCALLOL LIBRARY 

<li> ALGOL FILE TAPE CTITLE = SYMBUL/TEST/AE4, KINU ® OISK). 
<I> DaTa 

$ MERGE CHECK IGNUREERRURS 

$ SET LIST & THIS CARD IS OPTLONAL 

<i> END, 


THE EFFECt OF THE IGNOREERKRORS DULLAR OPTION IS TU ELIMINATE THE 
COUNTING QF ERRORS AND OPERATOR EXECUTIUNS, WiTH THIS DOLLAR 
OPTION SET» THE CONSOLE INPUT ROUTINES WILL ALSU NOT REQUEST INPUT 
UF THE FIRSTWORD ANU SECUNUWURD UF THE CURRECT ANSWER, 


PRUGRAM LIMITATIONS! 
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THE MACHINE RESULT FUR THE UPERATION ANU THE CONSOLE INPUT FOR THE 
PRESUMED CURKECT ANSWER ARE COMPARED BY MEANS UF THE SAME OPERATOR. 
THUS» VALUES WHICH WUULD HE EQUAL UNDER ARITHMETIC CUMPARISON CTeEos 
UCTAL 114100000U0U0D0UN = UCT 1130100000000 = UCT 1120010000000000 
= .ee  §=® 0000000000000001) ARF NOT EQUAL UNDER THE SAME OPERATORS 
THE FIRSIWORU AND SECUNUWORD OF THE ANSWER ENTERED IN THE PARAMETER 
SPECLFICAITIONS MUST BE Tht FXACT BIT PATTERNS THAT A CORRECTLY 
UPERATING ARITHMETIC UNIT WOULD GENERATE 


THE PROGRAM ASSUMES THAT THF "CORREGT ANSWER" ENTERED IN THE 
CONSOLE ULALOG IS INDEED CURKECT AND MAKES NU ATTEMPT TO VALIDATE 
[His INPUT. IF THIS RESULT IS INCURRECT OR 1S ENTERED INCORRECTLY,» 
SPURIOUS ERRUR INDICATIUNS WILL RESULT. 


THERE IS ALSU NU ATTEMPT MADE TOM DETERMINE WHETHER THE GIVEN A/X*B/ 
Y UPERATOR CUMBINATION WILL PRUDUCE AN EXPONENT UNDERFLOW, EXPONENT 
UVERFLUW, UK INTEGER UVERFLUW RESULT» AND THERE JS NO ATTEMPTED 
RECUVERY FOR THESE HARDWAKE INTERRUPTS AND THE JOB WILL BE 
[ENMINATED TF ANY OF THESE FAULTS UCCUR. 
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BINDING ELM Eun RU yete etoenle 

THe FACILITY aS BEEN ADUED TU FORTRAN» ALGUL», ANU THE BINDER TO 
BIND AND REPLACE PROCEDURES UR SUBFROGKAMS CUMPILEUL AT ANY DEGREE 
UF NESTING WITHIN AN ALGUL PROGRAM, THIS FACILITY CAN BE USED WITH 
[ht REVISED WUUMPINFU ANDO COAVINFu IN ALGUL (StF vO211 FOR A 
WESCHIPTION). THE OBJECTIVE IS TU FACILITATE ALGUL=@FORTRAN 
COMMUNICATION AT ALL NESTING DEPTHS AS WELL AS LEBUGGING ALGOL 
PRUGHAMS, 


[Ht FURMAT IN ALGUL UR tORKTKAN IS TU COMPILE THE PROCFOURE OR 
SUBPRUGRAM aT THE LEVEL Al WHICH IT 15 INTENDED TU RUNe THIS IS 
UUNE BY SEITING THE LEVEL N DOLLAR CARD UPTIUN AT COMPILE TIME. 
(THE LEVEL THAT AN. ALGUL PROCEDURE TS INTENDED TU RUN AT MAY BE 
FOUNU BY COUNTING THE NESTING NEPTH IN FRUM THE UUTER BLOCK UF THE 
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PRUGRAM ANO ADDING TWO. THUS A GLOBAL PRUCEVURE RUNS AT LEVEL 3» A 
PRUCEDURE NESTED INSIDE OF A GLOBAL PRUCEDURE RUNS AT LEVEL 4o ETC.). 
THAS PROCEDURE MAY THEN BE BOUND INIU A HOST WHERE IT HAS BEEN 
VECLARED EXTERNAL OR REPLACE A PRUCEDURE ALREADY IN THE HOSTe ALL 
VAKIABLES THAT ARE GLOBAL [OG THE SEPARATELY COMPILED PROCEQURE MUST 
BE DECLARED WITHIN BRACKETS PRIOK TO THE COMPILATION. PREVIOUSLY» 
UNLY TRUE GLUBAL VARIABLES APPEARED WITHIN THE BRACKETS$ NOW ALL 
THUSE VARIABLES WHICH CONSTITUTE THE ENTIRE ENVIRUNMENT OF THE 
SEPARATELY COMPILED PRUCEDURE CINCLUDING THOSE AT INTERMEDIATE 
LEVELS) MUST APPEAR. 


BINvER SYNTAX 

BINDER SYNTAX FUR REPLACING OR BINDING A PRUCEDURE VECLARED AT ANY 
LEVEL IS THE SAME AS FUR BINDING GLOBAL PRUCEDURESS MERELY USE THE 
BIND INSTRUCTION OR THE USUAL DEFAULTS. IT 15 NOW POSSIBLE HOWEVER 
TO HAVE SEVERAL REPLACEABLE OR EXTERNAL PROCEOURES WITH THE SAME 
NAME» SQ THE BIND STATEMENT SYNTAX HAS BEEN EXTENDED TO INCLUDE 
PRUCEDURE QUALIFICATIONs 


QUALIFIERS MAY BE USED IN EACH AF THE FOLLOWING THREE STATEMENTS! 


HIND <PROCEDURE IDENTIFIEN><QUALIFIERS><FILE FPART>3 

EXTERNAL <PROCEDURE IDENTIFIER><QUALItIERO>3 

USE <IDENTIFIER> FOR <IVENTIFIER><QUALIFILRO>} 

<QUALIFIERS> tts UF <PROCEDURFE IDENTIF LER><QUALIFItRS>, 
<EMPTY> 


FOR EXAMPLE, 
BIND P3 


wILL ATTEMPT TO BIND EVERY PROCEDURE NAMED F WITHIN THE HOSTS IF 
MOKE THAN UNE IS DECLARED IN THE PROGKAM (WHETHER OR NUT THE 
PROCEDURE IS ACTUALLY THERE OR JUST DECLARED EXTERNAL)» THE BINDER 
WILL TRY TO BIND ALL OF THEM. IF THERE IS A PROCEDURE P CONTAINED 
WIETRIN @ AND A PROCEDURE P CONTAINED WITHIN Re THE SIATEMENT 


BIND P OF Q3 
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whee ATTEMPT TO BIND ONLY THE PRUCEUURE F LUCATED WITHIN Q. 


UNLY THE QUALTFICATIUN NECESSARY TO UNIQUELY IDENTIFY» WITHOUT 
UMATTING aNnY NESTING LEVEL» THE PRUCEUUKE TUL te BUUND IS REUUIREDS 
LN THE EVENT THERE IS MURE THAN UNE WAY TU SU UNIQUELY IDENTIFY THE 
PRUCEUUREs ANY OF THEM WILL WORK. 


IN THE EVENT THAT THE BINDER ATTEMPTS TU BIND A PRUGEVURE AND DOES 
NUT FINO THE CUOE FILE OF THE FROCEDURE (BASED UN STANDARD BINDER 
Ver AULTS FUR CUDE FILE FITLES)» THE PROCEDURE WILL NUT Be BOUND AND 
A WARNING WILL BE GIVENe 


IF OTHE) | «6SEPARATE) «6PRUCEDURKE «CONTAINS A PARAMETER Of TYPE MISMATCH 
with IS ObkCLARKATIUN IN THE HfiSTs UR THE PROCEUURE IS COMPILED AT 
AN INCOMPATIBLE LEVEL» THE BINDER WILL 15SUt A WARNING MESSAGE AND 
UISCONTINUE BINDING THE PRUCEDURE>s CRREVIUUSLYs THE BINDER WOULD 
ASSUR ERRUR MESSAGES AND NUT LOCK %IHE CUDE FILE IF THE AHOVE 
CONDITICNS «RUSE. NUW, HUWEVERs IT SUCCESSFULLY "HACKS WUT" UF 
SINUING THE PRUCEUUKE SU THE COne FILE CAN BE LOCKED*s) TRUE ERRURS 
WILL STILL RESULT FRUM MISMATCHFS BETWEEN GLUBALSe 


BINUING PROCEELUS FROM THE MOST GLOBAL LEVEL 10 THE LEAST GLOBAL 
LEVEL. FOR EXAMPLE» Lf P TS CONTAINED IN Qe THE BINDER 
INSTRUCTIONS 


BIND P# BIND @3 
WELL RESULT FIRST IN & BEING BUUND ANU THEN P BEING BOUND INTO Qo 


THR MEANING UF QUALIFIER IN USE STATEMENTS 15S SHOWN BY THE 
FULLOWING EXAMPLES 


TWO SEPARATELY COMPILEU PROCFOURES P ANU @ EACH REFERENCE A 
VAKTABLE x WHICH IS GLUBAL TO THR PROCEVURE Ss. “xX OF P® SHOULD 
ACTUALLY BE KEFERKENCING A VARTABLE NAMED Y IN THE HOST WHILE "xX OF 

w"* SHUULD BF MATCHED UP TO A VARIABLE NAMED "XK" IN THE HOST. THE 

uUSt STATEMENT & "USE Y FUR X UF PS" WILL KESULT IN ONLY THE VARIABLE 
"XT REFERENCED BY P MATCHING UP 10 A "MY", LF &Y" UID NOT FXIST IN 
THe HUST» THE "K UF P™ WUULD BRE ADDED AS A NEW GLOBAL WITH A NAME 


ur owyn, 
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ALGOL EXAMPLE 


CONSIDER THE FOLLOWING ALGUL PROGRAMS 


A 


THe BIND STATEMENT 70 BIND 


BEGIN 

REAL xd FILE F3 
PROCEDURE Q3 

BEGIN 

REAL Y3 

PROCEDURE RS EXTERNAL? 
hs 

IF Ys3 THEN Xtxx+13 
END 3 

as 

WRITE CF a /oX)3 

ENDs 


= 02°19¢73 
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SAMPLE PROCEDURE R TU BE BOUND INTO THiS PRUGRAM COULD APPEAR AS 
FOLLUWSS 


$ SET LEVEL 4 

CREAL Xo¥3s FILE § 3) 
PROCEOURE R3 

BEGIN 

Yiexess 

WRITE Cros oY) 

END s 


BIND R$ (UR BIND R FROM CODE FILE NAMED« 


INTO THE HOST COULD BE SIMPLY 


THe RESULTING PROGRAM WOULD HAVF THE FOLLOWING OUTPUT: 


3 
i 


FORTRAN*ALGOL EXAMPLE 


CUMMON BLOCKS MAY BE DECLAKED AT INTERMEDIATE LEVELS IN 


ALGOL AND A 
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FORTRAN PROGRAM UNIT MAY THEN REFERENCE THEMe FOR FXAMPLE,> 


CONSIVER THE FULLOWING ALGUL PROGRAMS 


BEGIN 

FILE F3 

PRUCEDURE P3 

BEGIN 

REAL ARRAY AC1850)3 
DUUBLE ARRAY HC1) @ AS 
PROUCEUURF Q@$ EXTERNAL} 
Qs 

WRITE Ch e/sACi]s BL10))3 
END P$ 

PS 

WRITE CF s"GOGUBYE™>)3 
ENUs 


iT [5 DESTRED TO BIND THE FOLLOWING FURTRKAN SUBROUTINE INTO THIS 


PRUGRAM3 


S$ SET LEVEL 4 

SUBRUUTINE @ 

CUMMON /ALK/AAC 50) 

VUUBLE PRECISION BB(25) 

EQUIVALENCE (AA,BB) 

AAC1) 244 

§6B(10)23456 

KETURN 

END 
THEN THE USUAL USE STATEMENT (SFE DOU0K) MAY BE USED TU 
COMMON BLOCK, UNLY THE BLOCK WILL NUW BE DECLARED 
RATHER THAN GLOBALLY. THE BINDFR INSTRUCTIONS CUULD Bt 


BIND Q3 
USE A FUR /BLK/3 


THe RESULTING OUTPUT SHOULD BE 44» 3565 AND GOUOBYE,s IN 


VUPLEICATE [0 EXAMPLE 


BIND IN THE 
INSIDE OF P 
AS FULLOWS3 


THAT ORDER. 
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CONSIUER THE FORLOWING ALGOL PROGRAM 


BEGIN 

PRUCEDURE PS BEGIN ENDS 

PROCEDURE @3 

BEGIN 

PRUCEDURF P# BEGIN ENDS 

Ps 

END 

Ws 

P3 

ENDs 
ASSUME THAT A FILE CALLED *SEP/P" WAS CREATED BY COMPILING A 
PRUCLUURE P SEPARATELY AT LEVEL FOUN. CleEos THE LEVEL IS 
COMPATIBLE WITH THE PROCEDURE P NESTED IN & IN THE ABOVE FXAMPLE >» 
bUT 1S NOT CUMPATIBLE WITH THE GLOBAL Pe) THE BINDER INSTRUCTION 


BIND P FROM SEP/PS 


WILL» AS STATED BEFORE» CAUSE THE BINDER TO REPLACE ALL PROCEDURES 
NAMED Po HOWEVER» WHEN THE BINDER ATTEMPTS TO REPLACE THE GLOBAL 
Pp AN "INCOMPATIBLE LEVEL ERRNK™ WILL RESULT AND THE BINDER WILL 
VISCUNTINUE BINDING P AT THAT POINT. LATER IT WILL SUCCESSFULLY 
REPLACE THE P NESTED IN @ AND EVENTUALLY WILL LOCK The CODE FILE. 
THE RESULTS WOULD HAVE BEEN THE SAME IF IHE JNSTRUCTIONS HAD BEEN 


EXTERNAL P3 
BIND P OF Q3 


EXCEPT THAT NU ATTEMPT WOULD HAVE BEEN MADE TQ BIND THE GLOBAL Po 


PRECEDENCE QF INPUT STATEMENTS 


IN CASES WHERE MURE THAN GNE STATEMENT MIGHT APPLY TO AN 
TOENTIFIERs THE FOLLOWING RULES APPLY! 


Le THE MOST QUALIFIED IDENTIFIER WHICH FITS THE ENVIRONMENT 
CF THE GIVEN IDENTIFIER WILL APPLY. 
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26 IF TWO STATEMENTS ARE EQUALLY QUALIFIED THEN AN EXTERNAL 
STATEMENT WILL TAKE PRECEDENCE OVER A BIND STATEMENT 
WHICH» IN TURN» WILL TAKE PRECEDENCE OVER A CBIND 
STATEMENT USED IN AUTOBINO. (USE STATEMENTS DO NOT 
CONFLICT WITH BIND», EXTERNAL» UR CBIND STATEMENTS AND 
THEREFORE THIS SECUND PRECEDENCE RULE QUES NOT APPLY TO 
USE STATEMENTS.) 

EXTERNAL STATEMENT 


[He MEANING UF THE EXTERNAL STATEMENT HAS BEEN EXPANUVED SOMEWHAT TO 
MEAN THAT THE PRUCEDURE iS TU BF LEFT AS FOUND BY THE BINDER» (CIeEos 
AF THE PROCEDURE IS EXTERNAL» LEAVE IT EXTERNALS IF IT IS PRESENTs 
VO NUT TRY TU REPLACE IT.) THUS THE STATEMENTSS 


BIND PS 
EXTERNAL FP OF @3 


WILL RESULT IN THE BINDER ATTEMPTING TU BIND OR REPLACE ALL 
FRUCEUVURES NAMEU P EXCEPT THUSE NESTED IN PRUCEDURES NAMED Qe 


THE STATEMENTS 


EXTERNAL P3 
biNO F OF a3 


WILL RESULT IN THE BINDER ATTEMPTING TU BIND OW REPLACE ALL 
PRUCEDURES NAMED FP WHICH ARF NESTED IN PROCEDURE NAMED @ ANO NO 
UTHER. 


AUVING GLUBALS 


IF A GLOBAL APPEARS IN A SEPARATELY COMPILED PRUCEOURE THAT IS NOT 
DECLARED IN THE HUST» THE BINDER WILi» IF ABLE» ADU THE GLOBAL TO 
THE HUSTs THE GLOBAL WILL BE ALDDED IN AS A TRUE GLUBALS TeEos AT 
THE QUTERMOST BLUCK OF THE HUST, 

COMPILE TIME BINUING 


IHESE FEATURES FUR INTERMEDIATE LEVEL GLUBAL BINDING HAVE ALSO BEEN 
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ADDED TO AUTUBINU IN THE COMPILE RSs THUS» A HIGHER LEVEL PROCEDURE 
MAY BE COMPILED SEPARATELY AND BOUNL INTO A HOST WITH THE SAME 
AUTOMATIC FEATURES AS GLOBAL PROCEDURES. toR MORE DETAILS ON 
AUTUBIND, SEE LOOUG.s 


vO217 COMPILATIUN OF COMPILERS = 01°29°73 


THLS NOTE REPLACES LVOO13 IN THE SYSTEM MISCELLANEA, 


TABLES FOR THE ALGUL» ESFUL» AND XALGUL COMPILERS AKE GENERATED BY 
A TABLE GENERATION PROGRAM WHICH CREATES A NEW SYMBULIC FILE OF THE 
CUMPILER. THEREFORE» AS IN THE PAST» THERE 1S NO NEED TO USE THE 
"INCLUUE™ DOLLAR OPTION WHEN COMPILING ANY OF THESE COMPILERS. 


UOLUMENT 


ALGOL UCMPILER 
ALGUL COMPILER 
ALGUL LANGUAGE 
ALUOL LANGUAGE 
ALGUL LANGUAGE 
ALGOL LANGUAGE 
ALGUL LANGUAGE 
ALGUL LANGUAGE 
ALGOL LANGUAGE 
ALGOQL LANGUAGE 
ALGUL LANGUAGE 
ALUOL LANGUAGE 
ALGUL LANGUAGE 
ALGUL LANGUAGE 
ALUUL LANGUAGE 
BASIC LANGUAGE 
BASIC LANGUAGE 
BASIC LANGUAGE 
BASIC LANGUAGE 
BASIC LANGUAGE 
BASAC LANGUAGE 
BASIC LANGUAGE 
BASIC LANGUAGE 
HASTC LANGUAGE 
BASIC LANGUAGE 
BASTC LANGUAGE 
BASIC LANGUAGE 
BASIL LANGUAGE 
BASIC LANGUAGE 
HASIC LANGLAGE 


DUCUMENTS AFFECTED 


SYSTEM 
NOTE 


00158 
no163 
noi44 


N0145_ 


NO147 
N0156 
00191 
no2i1 
no0218 
no2e1y 
noZz20 
Na252 
Ne253 
NO266 
N0267 
00152 
nvis4 
no162 
N0163 
N0164 
n0177 
0178 
no162 
Nv193 
Noi94 
00195 
no197 
00203 
No204 
n0205 


MAKKETING 


NU» 


5400136 
5000136 
5000128 
5000128 
5000126 
5000128 
50001268 
5v00126 
5000126 
5000128 
5000128 
5000126 
5000148 
5000128 
5000128 
5000363 
5000383 
5000363 
5000363 
5000383 
5400363 
5000363 
5000363 
5000383 
5000363 
5000383 
5000363 
5000363 
5v00363 
5000363 
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MAKKE TING 
UATE 


06°72 
06°72 
06°72 
06°72 
06"72 
U6"72 
06°72 
06"72 
U6°%72 
06°72 
V6"72 
V6"72 
06°72 
V6"72 
06°72 
07"°71 
U7"71 
v7"71 
U7"71 
U7"71 
U7"71 
U7"71 
u7*71 
O7"71 
U7*71 
UT*71 
u7"71 
U7*71 
07*71 
U7*71 
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. PALE 2 
DUCUMENTS AFFECTED 4 et 


SYSTEM MAKKETING MARKETING 


WOCUMENT NUTE Ns UATE 
BASIC LANGUAGE Nv206 5000383 u7"71 
BASIC LANGUAGE no2z07 5000383 o7°71 
BASTC LANGUAGE po208 5000383 vT*71 
BASIC LANGUAGE p0209 5000383 u7#71 
BASIC LANGUAGE noz21 5000383 o7"*71 
BINDER no144 5000045 11°71 
BINDER P0156 5000045 11°71 
CANDE LANGUAGE Nu166 5000318 10°72 
CANDE LANGUAGE po237 5000318 10°72 
CANDE LANGUAGE N0238 5600318 10°72 
CANDE LANGUAGE p0239 5000318 10°72 
CANDE LANGUAGE nue7s 5000318 10"72 
CANDE OPERATION n0236 500615 10°72 
CANUL OPERATION n0240 500615 1o°7z 
CANOE OPERATION por76 50U0615 10°72 
LANDE OPERATION noe77 §v00e15 10°72 
CANDE OPERATLUN vo262 5000615 10°72 
CANOE OPERATION no0283 5600615 10°72 
COBUL REFERENCE no2gz4 6000656 v2°73 
COBOL REFERENCE N0226 5000656 v2"73 
COBOL REFERENCE noz229 5000656 v2°73 
COBUL REFERENCE no247 5000656 u2°73 
COBOL REFERENCE po249 500066 10°71 
DATA MANAGEMENT noz254 $000235 v1e73 
DATA MANAGEMENT no255 5000235 v1°73 
DATA MANAGEMENT No256 5000235 01°73 
DATA MANAGEMENT po257 5000235 01°73 
DATA MANAGEMENT no258 5000235 v1°73 
DATA MANAGEMENT n0259 5000235 01°73 
VATA MANAGEMENT noz260 §000235 01°73 
DATA MANAGEMENT noz61 5000235 vie73 
UATA MANAGEMENT noze2 5000235 vie73 


DATA MANAGEMENT D0263 5000235 01°73 


PAGE 224 
DUCUMENTS AFFECTED 


SYSTEM MARKETING MAHKETING 
eoeres ects: “Sehoe pa! 
VATA MANAGEMENT no264 5000235 01°73 
VATA MANAGEMENT n0265 5000245 01°73 
VATA MANAGEMENT N0268 5000235 01°73 
DATA MANAGEMENT no269 5000235 01°73 
VATA MANAGEMENT no264 5000235 v1"73 
DATA MANAGEMENT no290 §=§000285 01°73 
VAI ACUM FUNCTIUNAL noe79y 5000060 12°70 
UCALGUL LANGUAGE No14ag 5000052 UB*71 
DC ABGOL LANGUAGE N0176 5000052 UB"71 
UCALGOL LANGUAGE no192 5000052 VB"71 
DCALGUL LANGUAGE no199 5000052 ve"71 
UCALGOL LANGUAGE No200 5000052 va°71 
VCALGUL LANGUAGE no220 5000052 08°71 
UCALGOL LANGUAGE Nu252 5V0g0052 UB"74 
UCALGOL LANGUAGE No274 5000052 va*71 
UCALGUL LANGUAGE No265 5000052 vaw71 
UCALGUL LANGUAGE N0266 5000052 U8*71 
ESPUL LANGUAGE no14o 5000094 U6"72 
tSPOL LANGUAGE no156 5000094 U6"72 
ESPOL LANGUAGE N0158 5000094 U6°*72 
ESPUL LANGUAGE N0166 5000094 U6°72 
ESPOL LANGUAGE nu241 5000094 U6"%72 
ESPOL LANGUAGE no242 5000094 V6"72 
ESPUL LANGUAGE 00243 5000094 06°72 
ESPOL LANGUAGE no2a4 5000094 06°72 
ESPUL LANGUAGE no245 5000094 06°72 
ESPUL LANGUAGE Noz52 5000094 U6°72 
ESPOL LANGUAGE no270 5v00094 06*72 
FURKTRKAN REFERENCE no144 5000458 U7°72 
FORTRAN REFERENCE ho146 5000458 u7"*72 
FORTRAN REFERENCE no0153 5000458 - U6"72 
FURTRAN REFERENCE 00157 5000458 U6"72 
FURTRAN REFERENCE DO0160 5000458 V6"72 


F PAG 25 
DUCUMENTS AFFECTED AGE 2 


SYSTEM MARKETING MARKETING 


eOSUEEN MUTE, Ue pate 

FOKTRAN REFERENCE 00165 5000458 U7"72 
FORTRAN REFERENCE 00198 5000458 06°72 
FORTRAN REFERENCE N0228 5000456 U07*72 
FURTRAN REFERENCE No230 5000456 07°72 
FORTRAN REFERENCE N0231 5000458 U7"72 
FURTRAN REFERENCE nu232 5000458 U7"72 
FOWTRAN REFERENCE noz71 8000458 v6"72 
FORTRAN REFERENCE 00280 5000458 V6°72 
L°U SUBSYSTEM N0165 5000185 U7"71 
£°U SUBSYSTEM no273 50001865 v7"71 
MARK 263. SW IMPR N0150 «= 000367 10°72 
MCF N0167 5000086 12°71 
MCP Noi71 8000086 11°70 
MCP noi72 5000066 12°71 
MCP % NO184 5000086 12°71 
MCP N0196 5000066 12°71 
MCP Nu2z27 5000086 11°70 
MUP - 10233 5000066 21°70 
MUP Nno2?34 5000066 11°70 
MCP N0235 5000066 11°70 
MCSTI USERS GuIUE no251 8u0oz1y 09°71 
NOL N0161 5000078 vB*71 
NUL n0166 5000078 VB°71 
NDL . 00169 5000078 UB"71 
NDL N0170 Sv000078 va*71 
NOL noz72 svucou7e Ua*71 
NDL P0908 5000078 UB"71 
PLi LANGUAGE D0142 5000201 10"72 
PLA LANGUAGE ne143 = 000201 10°72 
PLI LANGUAGE N0155 5v00201 10°72 
PLL LANGUAGE no174 «5000201 10°72 
PLI LANGUAGE n0175 5000201 10°72 


PLA LANGUAGE no2e25 5000201 10°72 
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DOCUMENTS AFFECTED 


SYSTEM MARKETING MARKETING 


pocUMEN NOTE NOs vale 
PLA LANGUAGE N0246 5000201 10°72 
KRJk 00159 5000300 V6"72 
Kuk no173 5000300 U6"72 
Kut | pu1e7  5v0003u0 ver72 
NJk No168 5000300 V6°72 
JE no189 5000300 V6"72 
RJE no1g90 5000300 06°72 
Kuk no201 5000300 C6*72 
RJt 00202 5000300 V6"72 
RUE No2ie 5060300 06°72 
RJb n0213 5000300 V6"72 
RJE no2eia 5000300 06°72 
Rue no215 5000300 b6"72 
Rut N0216 5000300 06°72 
i Nu222 5000300 L6"72 
RJE no223 5000300 V6°72 
SORT PROGRAM 01468 5000144 11°72 
SYSTEM RANDAUOK Nv1s80 5000276 01°72 
SYSTEM HANDAUOK No181 5000276 vir72 
SYSTEM MISCELLANEA no1s50 50003067 10°72 
SYSTEM MISCELLANEA 00180 5000367 10°72 
SYSTEM MISCELLANEA pols! 5000367 10°72 
SYSTEM MISCELLANEA no217 5000367 10°02 
SYSTEM MISCELLANEA No248 5000367 10°72 
SYSTEM MISCELLANEA pu27s8 5000367 10°72 
2YOTEM MISCELLANEA Do2b2 5000367 — 10“72 


DYOTEM MISCELLANEA 00287 500367 10°72 


KWIC SuBJFCT INDEX 


KWIC 


<DATA™NAMED> IS <MNEMUNIC> 
<MNEMONIC> <UDATA*NAME> IS 
S$ FORMAT MODIFRS*FORTRAN K AND 
MASC™ CHARACTER FUNCTIUN 
"BRUTAL" & "PEDANTIC™ 
"CALL SYSTEM” VERB 

“DEF® FUNCTIUNS MULTIPLE STMT 
"END" AS RANGE STOP INDICATOR 
"FARST"™ DOLLAR CARD OFTION 
"HiSTOURY*" TASK ATTRIBUTE 
“Ire SYNTAX EXPANDED 
"INPUT" STATEMENT IN BASIC 
"LENGTH" STRING FUNCTION 

"OLD BASIC# DOLLAR UPTION 
"Owe STATEMENT SYNTAX 
"QWNARRAYS® UPTIUN 

"PEDANTIC® EXTEND "BRUTAL" & 
"PRINT® STATEMENT IMPROVEMENTS 
"Sifrf THE wORD INTRINSIC 
"WKRITEAFTER™ DOLLAR CARD OPTN 
"WRITESPO" PROCEDURE 

ACCEPT STUP BY RSVP AND 
ACCEPT AS BOOLEAN INTRINSIC 
ALY AKITHMETIC TEST 
AFTER MODIFY = STORE CURRENT 
ALBOL & FORTRAN VECTOR MODE IN 
ALGOL © USR CONTROLD SEGMNTATN 
ALGOL DUMPINFO AND LOADINFO IN 
ALGOL TO ESPUL BINDING 
ANALYZER 


EXTEND 


LUG 


SYSTEM 
NUTE 


no2e9 
NoO229 
no271 
no0203 
N0263 
N0247 
Noise 
Noisl 
00153 
No246 
Ho205 
no209 
nois4 
noi93 
no252 
nois7 
n0263 
no2ei 
No2s4 
no253 
noi65 
00213 
n0267 
No137 
NO264 
no14s 
no276 
Do211 
00156 
noe75 
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FUNCTION 


CObUL 
CObUL 
tSPOLINTKN 
BASIL 
CANDE 
COBOL 
BASIC 
BACKUF 
FOKTRAN 
MCP 
BASIC 
BASIL 
BASIC 
BASIC 
ALGOL 
FORTRAN 
CANDE 
BASIC 
ESFUL 
ALGOL 
mCr@y*U 
KJt 
ALGOL 


vM6700 
ALGOL 
ALGUL 
ALGOL 
BINDER 
CAWDE 
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SYSTEM 
AWAC NUTE *PUNCTIUN 


APUSTKUPHE © AS COMMENT SIGN NV204 BASIC 


AKLTHMETIC TEST Aka nu137 

ASSIGNED LP FORMMESSAGF NO273 MCP 
ATTRIBUTE "HISTORY" TASK NO24H6) MCF 
ATTRIBUTE IMPLEMENTED EXPLICIT nol75) PLi 
ATIRIBUTES NEW N0226 CUBUL 
ATTRIBUTES FILE no235 MCrel=U 
ATIRIBUTES DCALGUL QUEUF 00149 DCALGUL 
ATTRIBUTES © CURRENTBLOCK FILF 00196 MCPel*uU 
ATTRIBUTES = TIMELIMIT FILE no1g9gl MCreleU 
ATIRIBUTES RESULT UPDATE LINE DO0285 MCr*DATALM 
AX RSC INPUT MESSAGE NO214 KIEL 
BACKUPS PRLURITY OF RJF DOL67  kJt 
BASIC DET FUNCTION IN N0194~ BASIC 
BHASTC "INPUT" STATEMENT IN 1UZU9 BASIE 
BASIC CUTANGFNT FUNCTION IN 00195 BASIC 
BASTC CHARACTER VATA EXTENSTUN DO162 BASIC 
BASIC" UOLLAK UPTIUN "OLD NU193~ BASIL 
BUNAME VALUE AND NO169) RIE 
BETWEEN RiJt STATIONS 9S NG190 RdE 
BINDING PLT 00143 PLI 
BINDING ALGUL TU FSPUL 00156 BINDEK 


BIWUUNG INTERMED LEVEL GLOBALS 00144 
BLANK FIELD UN FURMATTEU TNPUT NU2b60 ESFULINTKN 


BLUCK USE ROUTINE SHURT NU249 COBOL 
BUULEAN INTRINSIC ACCEPT AS NU267) ALGUL 
BUFFER CHAUS TRAP nu277 CANDE 
oYle VARIABLE NO166 NDI 

CAKU CHARACTER UPFTIUNS DOLLAR NU226B  FURTRKAN 
CAmU File UMPRINTIT = 10265 DMFRINITT 
GARD UPTION LIMI1? UVULLAR NU2Z06 BASIC 
CARD UPTION "hRIRST™ DOLLAR DO153  FURTRAN 


LAKUD UPTIONS rORTRAN DULLAR DU230 FORTRAN 


KWIC SUB 
pee 
CARD OPTN WRITEAFTER™ DOLLAR 
CARD PROCESSING DOLLAR 
CARD STATEMENT QOLLAR 
CARRIAGE CONTROL 
CARRIAGE CONTROL VALUES 
CASE STATEMENT SYNTAX 
GHAGS TRaP HUFFER 
CHAR CONTINUATLUN MAT INPUT 
CHARACTER DATA EXTENSION BASIC 
CHARACTER FUNCTIUN "ASCH 
CHARACTER OPTIONS UULLAR CARD 
COVE FILES MULTIPLE MUP 
COVE SWAPPING TIME SLICING AND 
COMMAND EXCLUDE 
GCUMMENT SIGN APOSIRUPHE = AS 
COMPACTIUN OM = DATA 


COMPILATION OF CUMPILERS 
COMPILERS COMPILATIUN UF 
COMPILES SEPARATE 
CUNTINUATION INPUT CHAR 
CONTROL CARRIAGE 
CONTROL VALUES CARRIAGE 
GCONTROLU SEGMNTATN ALGOL = USR 
CORE DATA TRANGFER Cort [0 
CORE TU CORE DATA TRANSFER 
COTANGENT FUNCTIUN IN BASIC 
COUNT RECORD 
CURRENT AFTER MODIFY * STORE 
CURRENTHLOCK FILE ATTRIBUTES<* 
DAtA CUMPACTION DM © 
DATA EXTENSION HASIC CHARACTER 
VATA FUNCTIONS TIME AND 
VATA STMT EXTENSIONS RESTORE & 


MAT 


PAGE 


JECT INDEX 
SYSTEM 

NOTE Deen 
N0253 ALGUL 
nu224 COBOL 
N0i52 BASIC 
NO170 NOL 
nozee2 eu 
No218 ALGOL 
no277 CANVE 
00198 ESPULINTKN 
00162 BASIC 
00203 KASIC 
D0226 FORTRAN 
DO1b4 MCP 
poi72 MCP 
N0166 CANDE 
Do204 BASIC 
n0259 DvMe7oU 
noe217 

no217 

no246 PL 
0196 ESFULINTRN 
DOL70 = NDL 
no2z62 19U 
No2g76 ALGUL 
Noles FORTRAN 
Do165 FORTRAN 
n0195 BASIC 
no179)  BALKUP 
Nu264 QOM6700 
p0196 MCRK=Ieu 
n0259 DMe700 
p0162 BASIC 
0163 BASIC 
no164 BASIC 
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KWIC SUBJECT INDEX 


SYSTEM 
ant MUYE FUNCT IUN 
DATA TRANSFER CORE TO CORE 00165 FUKTRAN 
UATACOM ERROR LOGGING 00234 MCP=DATALM 
UCALGUL QUEUE ATIRIBUTES 00149 UCALGOL 
DUALGOL QUEUE TANKING p0279 DATACUM 
UCP FAULT REPORTING no240 CANDE 
UCP FAULT RESULT 00233 MCP@DATACM 
UCPPRUGEN UNITE NOL & NO272 NDL 
UCOTATUS SYSTEM N0250 DCSTATUS 
UCSYSTEMTABLES INTRINSIC No171 MCP=DATACM 
UCWRITE FUNCTIUN UPDATE LINE 00199 MCPEDATACM 
DOL EXECUTION DM = 10257 DMe700 
UDL WARNING OM = 00269 DM6700 
VECK OUTPUT NON@SAVE D0166 ESFOL 
VECLAKATIUN PRUCEDUKE no242  ESPUL 
VECLARATIONS PLI FILE Do225 PLI 
VESIGN OF RECOVERY FUK UM6e700 po264 UM6700 
VET FUNCTION IN BASIC p0194 BASIC 
VIALUUT ERRON RESULTS n0192 DCPPROGEN 
UJ SET WITH LA MODIFY OKDER UF No263 bvMeTOU 
UM = DATA COMPACTION 00259 DMe700 
UM = DUL EXECUTION 0257 vM6700 
UM = DOL WARNING no0269 DMe700 
UM © NEw STATUS 00290 OMe700 
UM = REQUEST HANULER EXECUTIUN nN0255 DMo700 
UM = SUL EXECUTIUN 00258 M6700 
UM © SDL IMPROVEMENTS nu256 M6700 
UMPHINTIT © CARD FILE 00265 DMPRINIIT 
UMUPLATE bo254 wMe700 
UM6700 DESIGN OF RECOVERY FUR DU264 UMO700 
DOLLAR CAKD CHARACTER UPTIONS 00228 FORTRAN 
UULLAR CARD UPTIUN LIMIT 00206 BASIC 
UULLAR CARD UPTIUN "RIRST™ 00153. FORTRAN 
DULLAR CARD UPTIUNS tURTRAN 00230 FORTRAN 


230 


PAGE 


KWIC SUBJFCUT INDEX 


one 

DULLAK CARD GPTN ®“WRITEAFTER* 
VOLRAR CAKD PROCESSING 

UOLLAR CARD STATEMENT 

UOLKARK OPTION WRITEAFTER 
DULLAR GPTION "OLD BASIC® 
VULLAR OPTIONS ESPUL 
DP MESSAGE Tu RJE 

bP QPTIGNS 

VUMPLNFG AND LOADVINFO IN ALGUL 
EDIT INHIBIT SYNC 
bMBEVDEO SETS GLOBAL FUR 
ENTRY VARIABLES IMPLEMENTED 
ERROR SUBTRACT STATIUN 
ERROR RESULTS DIALOUT 
KLRKUR LOGGING | DATACOM 
ESPOL EVENTS IN 
ESPOL BINDING ALGOL TO 
ESPUL DOLLAR OPTIONS 

BLU MAINTENANCE 

EVENTS IN ESPOL 

EXCLUDE COMMAND 

EXECUTION UM = DUL 
EXECUTION UM = SUL 
EXECUTLUN DM = REQUEST HANULER 
EXPANDED "IF SYNTAX 

EXPLICIT ATTRIBUTE IMPLEMENTED 
EXPONENTLATIUN & MULTIPLICATN 
EXPRESSIONS PUINTER 
EXPRESSTIUNS PUINTER 


EXTEND "BRUTAL™ & "PEDANTIC" 

tXTENSION BASIL CHARACTER DATA 
EXIENSTONS RESTURKE & DATA STMT 
FAULT REPORTING DUP 


SYSTEM 
NUTE 


00253 
Du224 
boise 
no270 
00193 
no241 
po173 
no202 
no2i1 
po16) 
no260 
bo174 
n0176 
DO192 
N0234 
No14o 
00156 
no241 
no2e1 
M0140 
N0166 
No2s? 
N0256 
noe55 
Nue05 
nui?’s 
No2e4s3 
No163 
na24s 
NDU263 
)0162 
po1lé4 
DU240 


tUNCTIUN 


ALGUL 
COBUL 
BASIC 
ESFOL 
BASIC 
ESFUL 

RJE 

RJE 

ALGOL 
UCFPRKOGEN 
DM6700 

PLI 
MCP@DATACM 
DCFPRUGEN 
MCP“DAITACM 


-ESFOL 


BINDER 
ESPUL 
SCR 
tSFUL 
CANDE 
DM6700 
DM6/700 
UM6700 
BASIC 
rid 
ESFOL 
ALGOL 
tSPUL 
CANDE 
BASIC 
BASIC 
CANUE 
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KWIC SUBJECT INDEX 


nn bc 


FAULT RESULT OCP 
FEATURES FoR SYSTEM MCSII NEW 
FIELD ON FORMATTED INPUT BLANK 
tIee DMPRINTIY = CARD 
FILE ATTRIBUTES 

tFILe ATTRIBUTES = CURRENTHLOCK 
Fike ATTRIBUTES * TIMELIMIT 
FILE DECLARATIUNS PLI 
FILE LOENTIFIER 

tiLe SEARCHING PRINT 
tIees MULTIPLE MCP CODE 
FLUW MANAGEMENT WORK 
FOR DM6700 UVESIGN UF KECOVERY 
FOR EMBEDDED SETS GLUBAL 
FUR RSVP & SNTX HISTRY PROCSNG 
FOR SYSTEM MCSIL NEW FEATURES 
FURMAL PRUCEDURES 

FURMAT MODLFRS*FURTRAN K AND § 
tORMATTED INPUT BLANK FIELD UN 
tOnMATTER NEW 
FORMMESSAGE ASSIGNED LP 
FORMMESSAGE THROUGH RVJE 


FORTRAN 
FURKTRAN 
FURKTRAN 
FORTRAN 
FUNCTIUN 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 


STATISTICS IN 

DOLLAR CARD OPTIONS 

UPTIMIZATION 

VECTOR MODE IN ALGUL 8 
NUM 
MASC™ CHARACTER 
RLENGTH" STRING 
UPDATE LINE UCWRITE 
MOVE STATION“UCWRITE 
In BASIL Ot T 
In BASIC CUTANGENT 


SYST&M 
NOTE 


06233 
no251 
DO2ZB0 
D0265 
bo235 
N0196 
nvig9i 
no225 
NO0232 
No21s 
no164 
hu2i10 
H0264 
N0260 
nv236 
No251 
no147 
Do271 
no2K0 
00150 
no0273 
001648 
DO287 
n0230 
DO146 
nvi4s 
N0197 
0203 
no15s4 
Nno199 
NO200 
N0194 
Do195 


‘FUNCTION 


MCP@=DATAGCM 
MCOLI 
ESPULINTRN 
OMPRINIIT 
MCP=]"U 
MCrelTeuU 
MCFeleU 
PLI 
FURTRAN 
RJE 

MCF 

MCF 

M6700 
DM6700 
CANDE 
MCSTI 
ALGUL 
ESPOLINTKN 
ESPULINTKN 
ESPULINTRN 
MCP 

RUE 
FORTRAN 
FOKTRAN 
FURTRAN 
ALOUL 
BASIC 
BASIC 
BASIC 
MCP@DATACM 
NCPeDATACM 
BASIC 
BASIC 
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WWAC 

FUNCTIONS STRING 
FUNCTIONS TIME ANO DATA 
FUNCTIONS MULTIPLE STMT "DEF" 


GLUBAL FOR EMBEDDED SETS 

GLUBALS BINDING INTERMED LEVEL 
GO TO STATEMENT SWITCH 
HANOLER EXECUTION DM * KEQUEST 
HISTRY PRUCSNG FOR RSVP & SNTX 


l MUDEL 
LA MOUIFY CROER OF UJ SET WITH 
1v PROGRAM ANU PATCH 
IDENTIFIER FILE 
AVENTIFIERS TRUNCATED 
AMPLEMENTATIUN SM MESSAGE 
AMPLEMENTED ENTRY VARIABLES 


UMPLEMENTED EXPLICIT ATTRIBUTE 


IMPROVEMENTS PLI 10 
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